o 
o 
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^PROGRAMMER! EARt U , BOUSE 

O / ' 



00005 R 000032 R ,DSA JN|T 

O 00006 R 062061 A .SIXBT 'FPXST2» 

00007 R 652462 A 

0003,0 R 000200 A 200 /DATA SWITCH 10 INHIBITS TEST 

O 00011 R A .BUOCK 7 

00020 R 000000 A SYSERR /ERROR INDICATOR FOR MONITOR, 

00021 R 000000 A 
O 00022 R 000000 A ErQOOE 

00023 R 000000 A 

00024 R 000000 A 
O 00025 R 000000 A 

00026 R 000000 A 

00027 R 000000 A 
O 00030 R 000000 A 

0003], R 000000 A 

.EJECT 
O 

O 

o 
o 
o 
o 
o 
o 
o 



o 

o 



O .TITLE 'FPi5T2' TEST MODULE FOR SYSTEM EXERCISER O 

.EBREL 

/VERSION-i* A 
O /COPYRIGHT SEPT, 22, 1971 O 

/DIGITAL EQUIPMENT CORPORATION? MAYNARD MASS, 01754 



O 



/ 

/THIS PROGRAM IS DESIGNED AS A RANDOM FP15 INSTRUCTION EXERCISER 
O /FOR THE FP15 FLOATING PO|NT PROCESSOR, O 

/ 
/ 

O 00000 R 000000 A USERSW /LOAD AS A 'CP' NODULE, O 

00001 R 000000 A 

00002 R 000000 A 
O 00003 R 000000 A 

00004 R 000062 R ,DSA SERVICE 



O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 
o 
o 
o 
o 
o 
o 

o 



PACE Si FPli?T<J SRC 'FP15T2' JEST MODUL^E FOR SYSTEM EXERCISER 



.EJECT 



o 
o 



O /TO STORE ADDRESSES JNTO EXECUTIVE AT LOAD TIME O 

/DEFINITIONS FOR EXEROISER 

000010 A URS10 ~ /UNROUNDED 

O mm'i^ A UN520 /UNN0RMAI,IZED O 

000030 A UU330 /UNNORMAUlHeD/UNROUNDED 

000040 A FL-40 /Fl^OATING 

O 000100 A DP5100 /DOUBUE PRECISION O 

000200 A JM5200 /IMMEDIATE 

000400 A SU8=400 /SUBTRACT 

O 0010iy0 A RSUB?1000 /REVERSE SUBTRACT O 

mV^m A UD = 3000 /BASIC FP UOAD 

003600 A ST5lM|3400 /STORE IMMEDIATE 

O 712000 A DV5712000 /BASIC DIVIDE O 

715400 A L,JE = 715^00 /L,OaD JUMP EXIT REGISTER 

715600 A SJE5715600 /STORE JUMP EXIT REGISTER 

O 0014B0 A MUl.51400 /BASIC MULTIPLY O 

002000 A OIV52000 /BASIC DIVIDE 

002400 A RDIV52400 /BASIC REVERSE DIVIDE 

O 006000 A ADD56000 /BASIC ADD O 

007400 A OP6TO9=7400 /OPCODE 6 TO 9 MASK 

710000 A PRR=710000 /DIAGNOSTIC READ REGISTERS 

O 710100 A OSR?710100 /DIAGNOSTIC STEP AND HEAD REGISTERS O 

7132t>0 A FNM5713250 /NORMAL I?E' FMA (ASIGN) EPA 

716601 A BHA=716601 /BRANCH IF FMA ZERO 

O 716602 A 8MA=716602 /BRANCH IF FMA NEGATIVE O 

716603 A BLe?716603 /BRANCH IF FMA < OR = 

716604 A BPAi7l6604 /BRANCH IF FMA POSITIVE 

O 716606 A BRy=7l6606 /BRANCH UNCONDITIONAL O 

716610 A BNA5716610 /BRANCH IF FMA N0Ns2ER0 

716620 A BAC=716620 /BRANCH IF GUARD BIT IS SET 

O 006400 A BRa6400 /BAsiC BRANCH O 

717300 A OMN=717300 ' /DIAGNOSTIC MAINTENANCE MODE ON 

717200 A DMF5717200 /DIAGNOSTIC MAINTENANCE MQPE OFF 

O 710314 A FPT=710314 /FLOATING POINT TEST O 



O 
O 
O 
O 
O 
O 
O 

o 



o 
o 



o 
o 
o 
o 
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o 

o 

o 

o 



O /INITIAUHE THE 'FPlt5T2« TEST, 

/ 

00032 R 000fc!00 A I NIT 

O 00K33 R 7^77^^ A EBA 

00034 R 200032 R i,AC INIT 

00035 R 040062 R DAC SERylPE 

O 00036 R 140020 R D2M SYSERH /CIEaR THE ERROR LOCATIONS, O 

00037 R 140021 R DZM SYSERR*! 

00040 R 140022 R DZM ERCODE 

O 00041 R 777000 A tAW '^1000" O 

00042 R 040545 R DAC Ki000 

00042 R 776000 A l,AW "2000 

O 00044 R 040^46 R DAC KT2000 O 

00045 R 777400 A LAW "400 " 

00046 R 0441361 R DAC RATIO ^ 
O 00047 R 100656 R viMS FPRAN /INITIALIZE OP»CODE BUFFER, O 

00050 R 104235 R JMS HQLDSW /CHECK FOR THE HOLO SWITCH. 

00051 R 710314 A FPT /TEST FQR THE FP15 

O 00052 R 604266 R JMP ERRORl /FP15 Is NOT OUT THERE, O 

00053 R ?045/^ R LAC (FPEXER 

00054 R 040073 R DAC DSTSW0 /SET UP DISTRIBUTION SWITCH, 

O 00055 R 7777'Si'i A LAW s50 O 

00056 R 044545 R DAC PASCNT 

00057 R 204573 R LAC (720000 

O 00060 R 044543 R DAC PGMLOP O 

00061 R 604256 R JMP EXITM5 /START THE TEST, 

O / o 

/ 

o / o 

/ 

/SERVICE ENTRANCE FOR THE Fpl5T2, ^ 

o ' ■ / o 

00062 R 000000 A SERVICE 

00063 R 707764 A EBA 

O 00064 R 750004 A LAS O 

00065 R 500010 R AND USERSW+10 

00066 R 740200 A SZA " /IS THE HOLD SWITCH SET? ^ 
O 00067 R 604256 R JMP EXJTMS /Y^S, EXJT O 

00070 R 715400 A Ue ■ ■ /LOAD THE »JEA' REGISTER, 

00071 R 004574 R UJEAJ 

O 00072 R 620073 R JMP» PSTSW0 O 

00073 R 000000 A DSTSW0 " /PROGRAM DISTRIBUTION LOCATION, 

/ 

O lEJECT 



O 
O 
O 

o 

o 



o 
o 



o 

o 
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00075 R l40Sd6 R D5?M OVRFUl 

O 00076 R X40S43, R D?M UNDFLN 

00077 R 140537 R D2M UNDFU 

00100 R 140542 R D2M DVBYfcJ^ 

O 00101 R 140543 R 02M OVRF(,J< 

00102 R 140544 R 02M IDVBY0 

00103 R 224547 R t,AC» AUTORG /RANDOH OPERATION 
O 00104 R 044552 R OAC AORESStf 

00105 R 444547 R ISZ AUTORG 

00106 R 224552 R |,AC« ADRESS 
O 00107 R 040527 R DAC OPCODE 

00li0 R 100567 R jMS RANOAT /GENERATE RANQOm NUMBERS, 



00154 R 600163 R JMP FPUXA3 



O 

o 



O /FPU EXERCISER RANDOM HARDWARE OP^OODE EXECUTIONER O 

00074 R 140540 R FPEXER D^M OVRF^R 



O 
O 

o 
o 

o 



00111 R 101556 R JHS IFREST /INTEGER FI^OATING RESTRICTIONS FOR RANDEX 

O 00112 R 200527 R UAC OPCODE 

00113 R 504575 R AND (0P6T69) 

00114 R 544576 R SAD (ADD) 

O ^0115 R 601033 R wIMP FPPADP /SOFTWARE .,,, ADDITION O 

00116 R 5445/7 R SAD (SUB) 

00117 R 601040 R aHP FPPSUB /, i ., SUBTRACT ION 

O 00120 R 544600 R SAD (MUy)' " Q 

00121 R 601045 R JMP FPPMUl, / , . , , MU^T iPl I CAT I ON 

00122 R 544601 R SAD (UIV) ' 

O 00123 R 601052 R JHP FPPPJV / , , , ,0 1 V I S I ON O 

00124 R 544602 R SAD (RSUB) 

00125 R 601057 R 4MP FPPRSB /(..fREVERSE SUBTRACTION 

O 00126 R 601064 R JMP FPPRQV /,,.. REVERSE DIVISION' O 

/SOFTWARE COMPyUATIONS COMPl,ETE»»»*»»<»««»»tt*»<»<> 

O /INITIALISE FPU HARDWARE OPERATIONAl, BOoKEEpING O 

00127 R 200527 R FPUXAl LAC OPCODE 

00130 R 504603 R AND (Fl) 

O 00131 R 544604 R SAD (CAL,) Q 

00132 R 600142 R JMP FPUXA2 /JNTEGER OPERATlNQS 

00133 R 204605 R LAC (%ANSR1) 

O 00134 R 040352 R DAC FPANSR Q 

00135 R 204606 R LAC (J^XFACl) 

00136 R 040225 R DAC FPFma' /3 OR 2 WORD XFER FLOATING FMA 

O 00137 R 204607 R LAC (J'^XHACD O 

00140 R 040350 R DAC FPFMB~ /AND FLOATING FmB 

00141 R 600163 R JMP FPUXA3 

O 00142 R 200527 R FPUXA2 LAC OPCODE O 

00143 R 504610 R AND (PP) 

00144 R 544604 R SAD (CAL? 

O 00145 R 600155 R JMP FPUX2A Q 

00146 R 204611 R LAC (y.ANSR2) 

00147 R 040352 R DAC FPANSR 

O 00150 R 204612 R LAC (%XFAC2) Q 

00151 R 040225 R OAC FPFMA /2 OR 1 WORD XFER INTEGER FMA 

00152 R 204613 R LAC (%XHAC2) 
O 00153 R 040350 R DAC FPFMB' / ^HQ INTEGER FMb O 



O 

o 



u 
o 



o 
o 
o 
o 
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o 

o 
o 
o 
o 
o 
o 
o 
o 
o 



O 00X55 R 204614 R FPUX2A UC (?'*ANSK3) 

00156 R 040;5!32 R OAC FPANSR 

00157 R 20461S R I^AC (JiXFACS) 
O 00160 R 040225 R DAC FPFMA' 

00161 R 204616 R L,AC (%XHAC3) 

00162 R 0403>0 R DAC FPFMB~ 
O 00163 R 200527 R FPUXA3 |,AC OPCpQE 

00164 R 504617 R AND (77036?) 

00165 R 344620 R TAD (URJ '" 
O 00166 R 344621 R TAD (1,0) /3000 

00167 R 040224 R DAC FPUt,D 

00170 R 200527 R t,AC OPCOPE 

O 00171 R 504622 R AND (770177) 

00172 R 344623 R TAD (St) ' /3600 

^ 00173 R 0403i?l R DAC FPUST /AUWAYS IMMEDIATE 

O 00174 R 504624 R AND («UU«1) 

00175 R 344625 R TAD (URJUN) 

00176 R 040270 R DAC CFPUST /ALWAYS URIUN 
O 00177 R 101556 R JHS IFRESf 

00200 R 101573 R JMS DPFRE3 

/SOFTWARE OPERATJONS COMPLETED AND ADDRESSES RESERVED 

o ■ / . - . , 

/VIA HARDWARE COMPUTE THE PpU FUNCTION IN "OPCOQE" 

U /INITIALIZE HARDWARE TO SOFTWARE EXECUTION RATIO 400 TO 1 O 

00201 R 204561 R tAC RATJU* 

00202 R 740100 A SMA 

O 00203 R 777400 A i.AW »400 O 

00204 R 044561 R DAC RAf|0 

00205 R 104235 R FPLOOP JMS HOLDSW /CHECK FOR THE HOLD SWITCH, 

O 00206 R 444545 R ISZ PASCNT O 

00207 R 600216 R JMP t*T ~ 

00210 R 104252 R JMS PCNEXT /EXIT '«5i, 

O 00211 R 777730 A LAW ^^Vi ~ O 

00212 R 044545 R DAC PASCNT 

00213 R 444543 R ISZ P5ML0P 

O 00214 R 741000 A SKP ~ O 

00215 R 604261 R jMP EXITM4 /TYPE 'DONE' 

^ 00216 R 141432 R OZM XJEA 

O 00217 R 141434 R DZM XJEA*2 O 

00220 R 141436 R DHM XJEA+4 

00221 R 141440 R Dj?M XJEA*6 

O 00222 R 200224 R L,AC FPU(,D O 

00223 R 044555 R DAC FFAJL^ 

00224 R 000000 A FPULD CAL ^ "' /MODIFIED TO CONTAIN HARDWARE UOAD UR+QPqODE. , .VETC, 

O 00225 R 000000 A FPFMA CAL /MODIFIED TO CONTAIN ADDRESS %XFAC1 OR %XFAC2 O 

.EJECT 



O 
O 
O 
O 



^' 



o 
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o 
o 
o 
o 
o 
o 

o 



0fc]2S0 R 504627 R 
00251 R 544603 R 
O 002S32 R 7410iJ5B A 

00253 R 600263 R 

00254 R 200513 R 
O 00255 R 5046;30 R 

00256 R 540514 R 

00257 R 740200 A 
O 00260 R 600262 R 

00261 R 140513 R 

00262 R 600270 R 
O 00263 R 200514 R 

00264 R 540515 R 

00265 R 740200 A 

00266 R 741000 A 

00267 R 140513 R 



AND (DPjFU) 




SAD (FUJ 




SKP 


/SPF 


JMP ,*10 


/DPF 


UAC %XFAC1 




AND (777000) 




SAD %)<FAC2 




S2A 




JMP ,*2 




D2M %XFAC1 


/MANTISSA 


JMP ,*6 




LAC %XFAC2 




SAD %XFAG3 




SZA 




SKP 




O^M %XFAC1 




.EJECT 





o 
o 



O /IF DPJ OR DPF AND MANTISS = 400000 000000 O 

/HARDWARE WILU STQRE AS 000000 000000 

00226 R 200527 R LAC OPCODE 

O 00227 R 504610 R AND (OP) " Q 

00230 R 544610 R SAD (DP? 

00231 R 741000 A SKP 

O 00232 R 600247 R JHP CFPU /SINGLE PRECISION O 

00233 R 200515 R LAC %XFAC3 

00234 R 740200 A S^JA 

O 00235 R 60024/ R JMP CFPU /FMa LOW NOT = 000000 O 

00236 R 200514 R LAC %XFAC2 

00237 R 544626 R SAD (400000) 

O 00240 R 140514 R D^M %XFAGZ /FMA HIGH = 400000 AND FMA L^W =5 000000 O 

00241 R 200520 R LAC %XHAC3 

00242 R 740200 A Si?A 
O 00243 R 600247 R JMP CFPU 

00244 R 200517 R LAC %XHAC2 

00245 R 544626 R SAD (400000) 
O 00246 R 140517 R D2M '/$XHAG2 

/If FLOATING AND MANTISSAS = CLEAR EXPONENT %XFAC1 FOR COMPARISON 
/IN CTESTl BUDDY BROTHER 

O 00247 R 200527 R CFPU LAC OPCODE 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 
o 
o 



o 
o 
o 



o 
o 

o 
o 
o 
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O 00303 R 6003^3 R slHP TPRf * /EXPECT OVEHFLOW #30 U 

00304 R 20X432 R CTEST0 UAC XvlEA 

00305 R 740200 A SEA ^ 
O 00306 R 603.502 R JMP XFI„OW /UNEXPECTED OVERFUQW O 

00307 R 201434 R UAC X4^k*Z 

00310 R 740200 A S^A 

O 003U R 601502 R JMP XFIQW /UNEXPECTED UNOERFUOW O 

00312 R 201436 R UAC XJEA*4 

00313 R 740200 A SEA 
O 00314 R 601502 R JMP XF^OW /UNEXPECTEU ABNORMAL DIVISION O 

00315 R 201440 R l^Q XJE:A*6 

00316 R 740200 A SZA ^ 
O 00317 R 601502 R JMP XFLOW /UNEXPECTED ILLEGAL MEM REFERENCE O 



00272 


R 


777777 


A 


LAW 


r.l 


00273 


R 


044554 


R 


DAC 


c6mpld# 


0027 4 


R 


200527 


R 


LAC 


OPCQDE. 


00275 


R 


504627 


R 


AND 


(DP|FL) 


00276 


R 


544604 


R 


SAD 


(CAL) 


00277 


R 


741000 


A 


SKP 




00300 


R 


600304 


R 


JMP 


CTEST0 


00301 


R 


200515 


R 


LAC 


%XFAC3 


00302 


R 


544626 


R 


SAD 


(400000) 


00303 


R 


600353 


R 


JMP 


TPRf * 


00304 


R 


201432 


R 


CTEST0 LAC 


XJEA 


00305 


R 


740200 


A 


SEA 




00306 


R 


601502 


R 


JMP 


XFLOW 


00307 


R 


201434 


R 


LAC 


XJEA*2 


00310 


R 


740200 


A 


S^A 




00311 


R 


601502 


R 


JMP 


XFLOW 


00312 


R 


201436 


R 


LAC 


XJ^A*4 


00313 


R 


740200 


A 


SEA 




00314 


R 


601502 


R 


JMP 


XFLOW 


00315 


R 


201'»40 


R 


LAC 


xje:a*6 


00316 


R 


740200 


A 


SZA 




00317 


R 


601502 


R 


JMP 


XFLOW 


00320 


R 


200534 


R 


LAC 


%NA1 


00321 


R 


544631 


R 


SAD 


(»1) 


00322 


R 


741000 


A 


SKP 




00323 


R 


604370 


R 


JMP 


ERRQH5 


00324 


R 


200535 


R 


LAC 


%NA2 


00325 


R 


544631 


R 


SAD 


(«i) 


00326 


R 


741000 


A 


SKP 




00327 


R 


604370 


R 


JMP 


ERR0R5 


00330 


R 


200513 


R 


CTESTl LAC 


%XFACi 


00331 


R 


540531 


R 


SAD 


%ANSR1 


00332 


R 


741000 


A 


SKP 




00333 


R 


6043/0 


R 


JMP 


ERRaH5 


00334 


R 


200515 


R 


CTEST3 LAC 


%XFAC3 


00335 


R 


540533 


R 


SAO 


%ANSR3 


00336 


R 


741000 


A 


SKP 




00337 


R 


6043/0 


R 


JMP 


ERR0R5 


00340 


R 


200514 


R 


CTEST2 LAC 


%XFaC2 


00341 


R 


540532 


R 


SAD 


%ANSR2 


00342 


R 


741000 


A 


SKP 




00343 


R 


604370 


R 


JMP 


ERR0R5 


00344 


R 


144554 


R 


DIH 


COMPLP 










.EJECT 



/FMA FAILURE LOAD/STORE 



/FMA FAILURE LOAD/STORE 



o 

o 



O /CONFIRM LOAD/STORE, isUR,, .FUNCTIONS PROPERLY O 

00270 R 000000 A CFPUST CAL /STORE URIUN 

00271 R 400352 R FPANSR*400000 /INDIRECT FPANSR 

O /NO JEA EXCEPTIONS SHQULD HAVE OCCURRED O 

/ 

/MIGHT LOOK LIKE REDUNDANT CHECKING BUT IT ISN'T 
O /SOFTWARE MIGHT EXPECT A JEA FUNCTION BUT THAT FUNCTION SHQULD NOT OCCUR HERE O 

/ 

/EXCEPT IF SINGLE PRECISION INTEGER AND FMA = 400000 THEN EXPECT OVERFLOW #30 



o 
o 
o 



o 

o 
o 



O 00333 R 6043/0 R JMP ERRQRt? /EXPONENT FAILURE LOAD/STORE O 



O 
O 
O 
O 

o 



o 
o 

PAGE 8 FPltpia SRg 'FP15T2' TEST MOQULE FOR SYSTEM EXERCISER 
O 



O 003t>0 R 0000^0 A FPFMB CAl, /MODIFIED TO CONTAIN ADQReSS %XHACi OR 5SXHAC2 

/Ml OPERATIONS COMPLETED AND SAVEO IN 2»S COMP COMPARE RESULTS 

00351 R mmm a fpust cal /mooifieo to contain hardware store*,. ., etc, 

U 003t>2 R 000000 A FPANSR CA^ /MODIFIED TO CONTAIN ADDRESS %ANSR1 OR %ANSR2 O 

.M.^nu^n.^ "°"°"^""'vgoMPL|TE»CHECK FOR UNOCCURED BUT EXPECTED UEA EXCEPTIONS 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



00345 


R 


200527 


R 




LAC 


OPCODE 


00346 


R 


040347 


R 




DAC 


, * % 


00347 


R 


740040 


A 




XX 




00350 


R 


0000^0 


A 


FPFMB 


CAL 












/ALL OPERATIONS COM 


00351 


R 


000000 


A 


FPUST 


CAL 




00352 


R 


000000 


A 


FPANSR 


CAL 












/HARDWARE OPERATION 


00353 


R 


201^^32 


R 


TPRT 


LAC 


XJEA 


00354 


R 


740200 


A 




S2A 




00355 


R 


600367 


R 




JMP 


TPRTl 


00356 


R 


200^40 


R 




LAC 


OVRFLR 


00357 


R 


7'102M0 


A 




SHA 




00360 


R 


601540 


R 




JMP 


EINTll 


0036i 


R 


200536 


R 




LAC 


OVRFLi 


00362 


R 


740200 


A 




SZA 




00363 


R 


601542 


R 




JMP 


EINT12 


00364 


R 


200543 


R 




LAC 


OVRFLX 


00365 


R 


740200 


A 




SHA 




00366 


R 


601544 


R 




JMP 


EINT30 


00367 


R 


201434 


R 


TPRTl 


LAC 


xje:a+2 


00370 


R 


740200 


A 




SZA 




00371 


R 


600400 


R 




JMP 


TPRT2 


00372 


R 


200541 


R 




LAC 


UNPFt,N 


00373 


R 


740200 


A 




SZA 




00374 


R 


601546 


R 




JMP 


EINTll 


00375 


R 


200^57 


R 




LAC 


undflI 


00376 


R 


740200 


A 




SZA 




00377 


R 


601i?50 


R 




JMP 


EINT14 


00400 


R 


201436 


R 


TPRT2 


LAC 


XJEA*! 


00401 


R 


740200 


A 




SZA 




00402 


R 


600411 


R 




JMP 


TESTl 


00403 


R 


200^42 


R 




LAC 


DVbY00 


00404 


R 


740200 


A 




SHA 




00405 


R 


601552 


R 




JMP 


ElNTiS? 


00406 


R 


200^44 


R 




LAC 


IDVBY0 


00407 


R 


740200 


A 




SHA 




00410 


R 


601554 


R 




JMP 


EINT35 



.EJECT 



/OVERFLOW EXPECTED,, 
/,,.BUT NONE OCCURED 
/ti.ETC 



/UNDERFLOW EXPECTED,, 
/m.BUT NOME OCCURED 



/mjABNORMAL DIVISION EXPECTED BUT NONE OCCURED 

/,., INTEGER DIVISION BY ZERO EXPECTED BUT NONE OCCURED 



o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
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o 

O 

o 
o 



O 00411 R 200!3v56 R TESTl l-AC 0VRFI„1 

00412 R 340540 R TAD OVRFUR 

00413 R 340S341 R TAD UNOFI,N 
O 00414 R 340537 R TAD UNOFll 

00415 R 340543 R TAD OVRFLX 

00416 R 340542 R TAD DVBY00 _ 
O 00417 R 340544 R TAD IDVEJY0 U 

004^0 R 740200 A SZA 

00421 R 600443 R JHP FPAl,L0K + 2 /EXPECTED INTERRUPT EXCEPTION OCCUREO n JGNQRE RESULT 

O 00422 R 2037(34 R t,AC %FAci /SOFTWARE RESULT O 

00423 R 540531 R SAD %ANSRl /HARDWARE RESULT 

00424 R 741000 A SKP ^, 
O 00425 R 100436 R ^HS FPERRUR /EPA RESULT WRONG U 

00426 R 203706 R TEST-? LAC %FAC3 /SOFTWARE RESULT 

00427 R 540533 R SAD %ANSR3 /HARDWARE RESULT ^ 
O 00430 R 741000 A SKP ^ 

00431 R 100436 R JMS FPERROR /FMa CLOW ORDER) RESULT WRONG 

00432 R 203705 R TEST2 LAC %FAC2 /SOFTWARE RESULT ^ 
O 00433 R 540532 R SAO %ANSR2 /HARDWARE RESULT ^ 

00434 R 600441 R JMP FPALLOK 

00435 R 100436 R JMS FPERROR /FMa (HIGH ORDER) RESULT WRONG _ 
O 00436 R 000000 A FPERROR QAL " /JMS IS FQR DIAGNQSTIO AIO» BQY, U 

00437 R 104332 R JMS ERR0R2 

00440 R 600444 R JMP FPABORT ^ 

O 00441 R 444561 R FPALLOK JSZ RATJD /NORHAL RETURN ,,, UNT I L RATJO50 ^ 

00442 R 600205 R vJMP FPLOOP 

00443 R 101635 R JMS TFBRA 

O /RATIO OPERATIONS COMPLETE O 

00444 R 104235 R FPABORT JMS HOLOSW /QHECK FOR HOLD SWITCH, 

00445 R 204547 R LAC AUTQRG 

O 00446 R 544632 R SAD (AEOPCDB /END OF OP^CODE BUFFER? U 

00447 R 741000 A SKP " " /YESi RESET TABLE 

00450 R 600074 R JMP FPEXER 

O .EJECT 



O 
O 
O 
O 
O 
O 
O 
O 
O 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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00452 
00453 

004S4 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
0047i 
0047J^ 
00473 
00474 
00475 
00476 
00477 
00503 
00501 
00502 
00503 
00504 
00505 
00506 
00507 



FP15T2 SRQ 



'FPa,5T2' TEIST MODyi,E FOR SYSTEM EXEROJSER 



R 440 

R 600 

R 101 

R 600 

R 440 

R 600 

R 777 

R 040 

R 204 

R 044 

R in 

R 044 
R 104 
R 504 
R 040 
R 344 
R 740 
R 600 
R 204 
R 340 
R 741 
R 600 
R 200 
R 064 
R 444 
R 740 
R 444 
R 600 
R 204 
R 044 
R 600 



546 
455 
77 6 

505 
545 
505 
000 
545 
633 
547 
716 
551 
515 
634 
530 
635 
100 

465 
636 

530 
100 
465 
530 
547 
547 

000 

551 
465 
633 

547 
0/4 



lOOPl 



FEXIT 



KTH000 
, *3 

INITAUR 

FExrr 
Ki000 

FEXit 

"1000 

Ki000 

(AOPCOBF) 

AUTORG 

r.62 

TEMP2 
RANGEN 

TEMP 
(i^EOPCDBwl) 



ISZ 

JHP 
JMS 
JMP 
ISZ 
JHP 
UAW 
DAC 
lAC 
DAC 

UAW 

DAC 

vJMS 

AND 

DAC 

TAD 

SMA 

JHP 

LAC 

TAD 

SPA 

4MP L-OOPl 

l,AC TEMP 

DACtt AUTOKG 

ISZ AUtORG 

NOP 

ISZ 

JMP 

lAC 

DAC 

JMP 



/32K 



i.OOPl 

(bDPCDBF^I) 

TEMP 



TEMP2 

LOOPl 

(AOPQOBF) 

AUTORG 

FPEXER 



, EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



O- 








o 
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FP15T 


o 


00510 


R 


000000 




00511 


R 


000000 




00512 


R 


000000 


o 


00513 


R 


000000 




00514 


R 


000000 




00515 


R 


000000 


o 


00516 


R 


000000 




00517 


R 


000000 




00520 


R 


000000 


o 


00521 


R 


000000 




00522 


R 


000000 




00523 


R 


000000 


o 


00524 


R 


000000 




00525 


R 


000000 




00526 


R 


000000 


o 


00527 


R 


000000 




00530 


R 


000530 


o 


00531 


R 


000000 




00532 


R 


000000 




00533 


R 


000000 


o 


00534 


R 


111111 




00535 


R 


mm 




00536 


R 


(mmm 


o 


00537 


R 


000000 




00540 


R 


000000 




00541 


R 


000000 


o 


00542 


R 


000000 




00543 


R 


000000 




00544 


R 


000000 


o 


00545 


R 


ilimra 




00546 


R 


iiam^ 


o 








o 








o 








o 








o 








o 

















o 








o 









'FPl5T2f TEST MODUU FOR SYSTEM EXERCISER 



o 

o 
o 



o 
o 



A FACU9C 

A ESGLOC 

A EXPUOC _ 

A %XFAC1 /TEMPORARY O 

A %XFAq2 /SOFTWARE 

A %XFAC3 /FMA ^ 

A %XHAG1 /TEMPORARY O 

A %XHAC2 /SOFTWARE 

A %XHAC3 /FMb ^ 

A AGILOC /7,XFAC1, %XHAC1 vJ 

A AC2L0C /%XFAC2, %XHAC2 

A AC3L0C /?5XFAC3, %XHAC3 

A DIVSW 

A RSW 

A FPACTV 

A OPCODE 

R TEMP .DSA TEMP /TEMPORARY STORAGE 

/RESULTANT HARDWARE CALCULATIONS ^ 

A %ANSRi /EXPONENT ,,, WoRp 1 OPF AND SPF O 

A %ANSR2 /WORD 2 DPF AND SPF WORD 1 DPI 

A %ANSR3 /WORD 3 OPF WORD 2 DPI WORD 1 SPI ,. 

A %NA1 LAW rl /ERROR IF! WORD 3 WHEN QPl QR WORD 2 WHEN Spj U 

A %NA2 LAW '^i /ERROR \V\ WORD 3 WHEN SPI 

A OVRFLl " /EXPONENT OVERFLOW ^ 

A UNPFLl /EXPONEND UNDERFLOW ^-^ 

A OVRFLR /OVERFLOW VJA ROUNDING 

A , UNDFLN /UNDERFLOW Via NORMALIZING ^^ 

A DVBY00 /ABNORMAL DIVIDE ^ 

A OVRFLX ^ /INTEGER OVERFLOW 

A IPVBY0 /INTEGER DIVISION BY ZERO ^ 

A K1000 LAW "1000 O 

A KT2000 LAW ''2000 
lEvJECt"^ 

o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 

o 



o 

o 
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O /DIAGNOSTIC REGISTER BUFFER FILLED FROM "ORR" O 

00547 R 004604 R REGAOR ,DSA ^CAL) /BMB 00«17 

00550 R 004604 R |DSA (CAL) /BMB 18r35 

O 00553, R 004604 R ,OSA (CAL) /SO 12»l7 AND IR 06«17 O 

00652 R 004604 R ,OSA (CALJ /EPA 00«17 

00553 R 004604 R ,OSA <QAL) /A SIGN ANO FMA 01-^17 

O 00554 R 004604 R ,DSA (CAL) /FMA 18«35 O 

00555 R 004604 R ,DSA (CAL) /EPB 00«17 

00556 R 004604 R ,DSA (OAU /B SIGN AND FHB 01s^7 ^ 
O 00557 R 004604 R ,DSA (QAL) /FMB 18^35 O 

00560 R 004604 R ,DSA (CAU) /B SIGN AND FMQ lmi7 

00561 R 004604 R ,DSA (CAL? /FMQ i8s35 

O 00562 R 004604 R ,DSA (CaU /ADDER 00r.l7 O 

00563 R 004604 R ,DSA (CJAL) /ADDER I8e35 

00564 R 004604 R ,DSA (GAlJ /JEA 00»17 ^ 
O 00565 R 004604 R ,PSA (CALJ /STA 00^-17 (SEE BELOW) O 

00566 R 004604 R ,DSA (CAL) /AR 00^5,7 

/STATUS REGISTER 00r.l/ BIT EXPLANATION 
O /STA00 /FP15 BUSY O 

/STA01 /FETCH CYCLE 

/STA02 /OPAND CYCLE ^ 

O /STA03 /EXp CYCLE O 

/STA04 /FUN CYCLE 

/STA05 /NOR CYCLE ^ 

O /STA06 /WRITE CYCLE O 

/STA07 /INTI 

/STA08 /INT2 

O /STA09 /TIME STATE % G 

/STA10 /TIME STATE 2 

/STAll /TIME STATE 3 

O /STA12b17 /DIAG INST REG 12^17 O 



00567 R 000567 R RANDAT ,DSA RANDAT 
00570 R 104515 R JMS RANGEN 



O 

c 



O 00571 R 040513 R DAC %XFAC1 

00572 R 104515 R JMS RANGEN 

00573 R 040514 R OAC %XFAC:2 
O 00574 R 104515 R JHS RANGEN 

00575 R 040515 R DAC %XFAq3 

00576 R 1045i5 R JMS RANGEN 

O 005/7 R 040516 R OAC %XHACi O 

00600 R 104515 R JMS RANGEN 

00601 R 040517 R DAC %XHAC2 

O 00602 R 104515 R sJMS RANGEN O 

00603 R 040520 R DAC %XHAC3 

00604 R 200527 R LAC OPCODE 
O 00605 R 504575 R AND (6P6T09) 

00606 R 544600 R SAD <MUL) /MULTIPLY MASK 

00607 R 600630 R JMP RANOTl 

O 00610 R 5446501 R SAD ( D I V ) ' O 

00611 R 620567 R JMPtt RANDAT /DIVISION " EXIT 

00612 R 544637 R SAD (RDIV) 

O 00613 R 620567 R JHP» RANDAT /DIVISION « EXIT O 



O 



EJECT 



o 

o 



o 

o 



o 
o 
o 
o 
o 
o 
o 



PAGE la FPl&T? SRC 'FP15T2' TEST MODUU FOR SYSTEM EXERCISER 



00633. R 504627 R AMD (QPIFU) 

00632 R 544604 R SAD (CAL,) ' 



006S0 R 504642 R AND {X7'r/) 

mbbX R 040^14 R DAC %XFAa2 



.EJECT 



o 

o 



O /ADDITION AND SUBTRACTION MASKS O 

00614 R 200516 R LAC %XHAQi 

00615 R 504640 R AND li'f) /OPUBI.E PRECISION 
O 00616 R 340513 R TAD %><FAG1 

00617 R 040&16 R DAC %XHAC1 

00620 R 200527 R LAC OPCODE 

O 00621 R 504610 R AND (DP) 

00622 R 544610 R SAD <0P? 

00623 R 620567 R JMP* RANDAf 
O 00624 R 200516 R LAC %XHAC1 

00625 R 504641 R AND {27} /SINGLE PRECISION 

00626 R 040516 R DAC %XHAC1 
O 00627 R 620567 R JMP» RANDAT 

/TO MASK WHEN OPCODE IS INTEGER MULTIPLY TO LESSEN OVERFLOWS 
/AND INCREASE INTEGER"0PERATI0N 

O 00630 R 200527 R RANDTl LAC OPCODE 



O 00633 R mmm a skp 

00634 R 600644 R JMP RANPT2 

00635 R 200^15 R LAC %XFAC3 /SINGLE PRECISION INTEGER 
O 00636 R 504642 R AND (1777) 

00637 R 040515 R DAC ^XFAC'S 

00640 R 200520 R UC J«XHAC3 

O 00641 R 504642 R AND (1777 J 

00642 R 040520 R DAC %XHAC3 

00643 R 620567 R ^MP<^ HANDAT 
O 00644 R 544610 R RANDT2 SAD (0P> 

00645 R 741000 A SKP 

00646 R 620567 R JMP* RANDAT ^ 
O 00647 R 200514 R LAC %XFAC2 /DOUBLE PRECISION INTEGER ^ 



O 
O 

o 
o 
o 
o 
o 
o 
o 



o 



O 00652 R 200517 R LAC %XHAQ2 

00653 R 504642 R AND (1777) 

00654 R 040517 R DAC %XrtAC2 

O 00655 R 620567 R gMP» RANDAT O 



O 
O 
O 
O 
O 
O 
C 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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FP15T2 SRC 




00656 


R 


000000 


A 


F 


0061J7 


R 


204633 


R 




00660 


R 


044547 


R 




00661 


R 


620656 


R 


/ 


00662 


R 


710400 


A 


/ 

/ 




00663 


R 


710500 


A 




00664 


R 


710440 


A 




00665 


R 


710450 


A 




00666 


R 


710460 


A 




00667 


R 


710470 


A 




00670 


R 


710540 


A 




00671 


R 


7105130 


A 




00672 


R 


710560 


A 




00673 


R 


710570 


A 


/ 


00674 


R 


711000 


A 


00675 


R 


711100 


A 




00676 


R 


711040 


A 




00677 


R 


711050 


A 




00700 


R 


711060 


A 




00701 


R 


711070 


A 




00702 


R 


711140 


A 




00703 


R 


711150 


A 




00704 


R 


711160 


A 




00705 


R 


711170 


A 


/ 
/ 
/ 


00706 


R 


711400 


A 


00707 


R 


711500 


A 




00710 


R 


711440 


A 




00711 


R 


711450 


A 




00712 


R 


711460 


A 




00713 


R 


711470 


A 




00714 


R 


711540 


A 




00715 


R 


711550 


A 




00716 


R 


711560 


A 




00717 


R 


7115/0 


A 





»FP15T2' TEST MOPyi^E FOR SYSTEM EXERCISER 



FUOATING POINT RANDOM 

PRAN 

l,AC (AOPCPBF) 
DAC AUTQRG 
JMP* " FPRAN 

LEGAL FLOATING i=^6lNL,T 

V,.,SUBTRACTmm 



PCDBF 710400 
710500 
710440 
710450 
710460 
710470 
710540 
710550 
710560 
710570 

,,,, REVERSE SUBTRACT 

711000 
711100 
711040 
711050 
711060 
711070 
711140 
711150 
711160 
711170 

M .iMULTIPLYf !!i 

711400 
711500 
711440 
711450 
711460 
711470 
711540 
711550 
711560 
711570 
.EJECT 



OPoCODE BUFFER SETUP ANp RaNQOM "R" PRIMER 

/BEGINNING OF ByFFER 
OPERATIONS TQ DATE 



/ISB 

/ESB 

/FSB 

/URFSB 

/UNFSB 

/UUFSB 

/DSB 

/URDSB 

/UNDSB 

/UUDSB 



lift 



/IRS 

/ERS 

/FRS 

/URFRS 

/UNFRS 

/UUFRS 

/DRS 
/URDRS 
/UNDRS 
/UUDRS 



/IMP 

/EMp 

/FMP 

/URFMP 

/UNFMP 

/UUFMP 

/DMP 

/URDMP 

/UNDMP 

/UUDMP 



/SPI 

/OPI 
/SPF 
SPF UR 
/SPF UN 
/SPF UR UN 
/OPF 
/DPF UR 
/DPP UN 
/DPF UP UN 



/SPI 
/DPI 
/SPF 
/SPF UR 
/SPF UN 
/SPF UR UN 
/OPF 
/DPF UR 
/OPF UN 
/OPF UR UN 



/SPI 
/DPI 
/SPF 
/SPF UR 
/SPF UN 
/SPF UR UN 
/DPF 
/DPF UR 
/DPF UN 
/DPF UR UN 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
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O /,, .iREVERSE DIVIDE,,,! 



O /,MfAPDinONM 



( t 



o 

o 
o 



O /,,,, DIVIDE,,,! 

/ 

00720 R 7i2fe5S0 A 7120013 /JOV /SPJ 

O 00721 R 712100 A 712100 /EDV /DPI O 

00722 R 7120^0 A 712040 /FOV /SPF 

00723 R 7120^0 A 712050 /URPDV /SPF UR 

O 00724 R 712140 A 712140 /DPV /DPF O 

00725 R 712150 A 712150 /URDDV /DPF UR 



O 



/ 

00726 R 712400 A 712400 /IRQ /SPI 

O 00727 R 712500 A 712500 /ERD /DPI ^ 

007^30 R 712440 A 712440 /FRD /SPF 

00731 R 712450 A 712450 /URpRD /SPF UR _^ 

O 00722 R 712540 A 712540 /DRD /DPF O 

00733 R 712550 A 71,2550 /URDRD /DPF UR 



O 



/ 

00734 R 716000 A 716000 /JAD /SPI _ 

O 00735 R 716100 A 716100 /EAD /DPI O 

00736 R 716040 A 716040 /FAD /SPF 

00737 R 716050 A 716050 /URPAD /SPF UR 

O 00740 R 716060 A 716060 /UNPAD /SPF UN Cj 

00741 R 7160/0 A 716070 /UUPAO /SPF UR UN 

00742 R 716140 A 716140 /DAD /DPF 

O 00743 R 716150 A 716150 /URDAD /DPF UR ^ 

00744 R 716160 A 716160 /UNPAD /DPP UN 

00745 R 716170 A EQPCDB 716170 /UUDAD /PPP UR UN ^ 
O 00746 R 000064 A EOPCDBrOPCOBP*l O 

000062 A AXKX = EOPCDBcOPCDBFr'l 

/FROM THIS TABCE 6p ADDRESSES ThE FPU OPERATIONS WIt,L BE B^EO 
O /THIS TABLE WIU BE SCRAMBI^EO EVERY 1000 PASSES U 

/AND RESET TO THE IJSTING EyERY 2000 PASSES 
.EJECT 



o 
o 
o 
o 
o 
o 
o 
o 



o 
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FP1^T2 SRC 


'FP15T2I TEST HO 


o 


00747 


R 


000662 


R 




aopcdbf opcdbf 

,re:pt'axkx,i 




00750 


R 


00066^ 


R 




0PCDBF*1 


o 


00751 


R 


000664 


R 


<*R 






0075H 


R 


000665 


R 


*R 






00753 


R 


000666 


R 


ifR 




c 


00754 


R 


00065/ 


R 


ftR 






00755 


R 


000670 


R 


«R 






00756 


R 


000671 


R 


i^R 




o 


00757 


R 


000672 


R 


»R 






00760 


R 


000673 


R 


«R 






00761 


R 


000674 


R 


*R 




o 


00762 


R 


000675 


R 


<»R 






00763 


R 


000676 


R 


»R 






00764 


R 


000677 


R 


WR 




o 


00765 


R 


000700 


R 


»R 






00766 


R 


000701 


R 


»R 






00767 


R 


000702 


R 


«R 




o 


%^ri% 


R 


m^l'^'i 


R 


«R 






00771 


R 


000704 


R 


«R 






00772 


R 


000/05 


R 


«R 




o 


00773 


R 


000706 


R 


*R 






00774 


R 


%m'ni 


R 


i*R 






00775 


R 


md7w 


R 


«R 




o 


00776 


R 


000711 


R 


«R 






m'lii 


R 


000712 


R 


«R 






01000 


R 


000713 


R 


J^R 




o 


01001 


R 


000714 


R 


»R 






01002 


R 


000715 


R 


<^R 






01003 


R 


000716 


R 


«R 




o 


01004 


R 


000717 


R 


^R 






01005 


R 


000720 


R 


«R 






01006 


R 


000721 


R 


OR 




o 


01007 


R 


000722 


R 


»R 






01010 


R 


000723 


R 


an 






01011 


R 


000724 


R 


«R 




o 


01012 


R 


000/25 


R 


»R 






01013 


R 


000726 


R 


«R 






01014 


R 


000727 


R 


»R 




o 


01015 


R 


@7j076a 


R 


»R 






01016 


R 


000731 


R 


<»R 






01017 


R 


000732 


R 


«R 




o 


01020 


R 


000733 


R 


*R 






01021 


R 


000734 


R 


«R 






01022 


R 


000735 


R 


«R 




o 


01023 


R 


000736 


R 


*tR 






01024 


R 


000737 


R 


«R 






01025 


R 


000740 


R 


ttR 




o 


01026 


R 


000741 


R 


«R 






01027 


R 


000742 


R 


«R 






31030 


R 


000743 


R 


«R 




o 


01031 


R 


000744 


R 


«R 






01032 


R 


000745 


R 




AEOPCDB EQPCDB 


o 














o 















o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 



o 



o 
o 
o 

o 
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O /»«»*»REVERSE P|;V1SI0N«»««« 

01064 R 200527 R FPPRDV LAC OPCQDE 



O 
O 
O 
O 



/ 

01fe333 R 200527 R FPPADD i,AC OPCODE 

O 03,034 R 504610 R AND (UP) 

01035 R 544610 R SAD (DP) 

„, 01^36 R 601071 R JMP OPFl,AP /DOUBLE PRECISION FLOATING AND INGEGER ADD 

O 01037 R 601105 R gMP SPPLAU /SiNG AND INtEGERLE PRECISION FLOATING ADD O 

/ 

/iKnnnjSUBTRACTION***^^* 
O / ' o 

01040 R 200527 R FPPSUB LAC OPCODE 

01041 R 504610 R AND (DP) 

O 01042 R 544610 R SAD (pP) Q 

01043 R 601073 R JMP DPFLSB /DOUBLE PRECISION FLOATING AND INTEGER SUBTRACT 

01044 R 601107 R vIMP SPFLSB /SING AND INTEGERLE PRECISION FLOATING SUBTRACT 

/ o 

/»»*««MULTIPLICATIQN*»<*»« 

O 01045 R 200527 R FpPMUL LAC OPCODE O 

01046 R 504610 R AND (OP) 

01047 R 544610 R SAD (OP) 

O 01050 R 6010/5 R JMP DPFLML /DOUBLE PRECISION FLOATING AND INTEGER MULTIPLY O 

01051 R 601111 R gMP SPFLML /SING AND INTEGERLE PRECISION FLOATING MULTIPLY 

/tt«oa*DlVISION<nnHt« 

O / o 

01052 R 200527 R FPPDJV LAC OPCODE 

01053 R 504610 R AND (DP) 

O 01054 R 544610 R SAD (DP) O 

01055 R 6010/7 R JMP DPFLDV /DOUBLE PRECISION FLOATING ANQ INTEGER DIVIDE 

01056 R 601113 R JMP SPFLDV /SlNG AND JNTEGERLE PRECISION FLOATING DIVIDE 

^ ■ O 

/tt«»fl»RE VERSE SUBTRACT I 0N»***« 

^ / 

O 01057 R 200527 R FpPRSB LAC OPCODE O 

01060 R 504610 R AND (DP) 

01061 R 544610 R SAD (OP) 

O 01062 R 601101 R JMP DPFLRS /DOUBLE PRECISION FLOATING AND INTEGER REVERSE SUBTRACTION O 

01063 R 601115 R UMP SPFLRS /SjNG AND INTEGERLE PRECISION FLOATING REVERSE SUBTRACTION 



o 
o 



O 01065 R 504610 R AND (PP) 

01066 R 544610 R SAD (DP) 

01067 R 601103 R UMP DPFLHD /DOUBLE PRECISION FLOATING AND INTEGER REVERSE DIVISION 

O 01070 R 601117 R JMP SPFLRD /SING AND INTEGERLE PRECISION FLOATING REVERSE DIVISION O 

.EJECT 



O 

o 
o 
o 



o 
o 



PAGE 18 FP1ST2 SHg 'FP15T2' TEST MODULE FOR SYSTEM EXERCISER 



o 
o 



O /SOFTWARE DIRECTOR OF DOUBLE PRECISION FLOATING AND INTEGER,,, O 

/ 
/SOFTWARE MANTISSA PREVIOUSLY LOADED BY "DLAC" 

o / ■ "■' " " " ■■■ 

/,f, ADDITION 

^ / 

O 01071 R 750000 A DPFLAD CLA 

01072 R 601^14 R JMP DPFLEX 

/ 
O /;,, SUBTRACT I ON 

/ 

01073 R 204643 R DPFLSB LAC (1) 

O 01074 R 601214 R JMP DPFLEX 

■ '■■ / 

/.•.MULTIPLICATION 

o /" ■" ■■ 

01075 R 2046^4 R OpFLML LAC U) 

01076 R 601214 R JMP DPFLEX 

O / 

/.», DIVISION 
/ 
O 01077 R 204645 R DpFLDV LAC (3) 

01100 R 601214 R JMP DPFLEX 
■ ' / 

O /,,, REVERSE SUBTRACTION 

/ 

01101 R 204646 R DPFLRS LAC (4) 

O 011^2 R 601214 R JMP DPFLEX 

/ 
/Vi, REVERSE DIVISION 

O / 

01103 R 204647 R OpFLRO LAC (b) 

01104 R 601214 R JMP DPFLEX 



o ■" / 

/ 
/ 

o / 

/ 
/ 

O .EJECT 



O 
O 

o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



(J 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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FP15T2 SRC 



01105 R 2046b0 R 

01106 R 601244 R 



01107 R 2046iJi R 
01110 R 601244 R 



01111 R 204620 R 

01112 R 601244 R 



01113 R 2046^2 R 

01114 R 601244 R 



01115 R 2046>3 R 

01116 R 601244 R 



illl7 R 204654 R 
11120 R 601244 R 



'FP15T2' TEST MOpUi^E FOR SYSTEM EXERCISER 

/SOFTWARE PIRECTOR OF S|NG AND JNTEGERU PRECISION FI.OATING,, 

/ 

/SOFTWARE MANTISSA PREVIOUSLY LqAOEO BY "FUAC" 

/,,, ADDITION 

/ 

SpFUAD LAC (6) 

JMP SPFLEX 
/ 
/,,. SUBTRACTION 

/ 

SPFLSB LAC (73 

JMP SPFLEX 
/ 

/,,, MULTIPLICATION 
/ 
SPFLML LAC (10J 

JMP SPFLEX 
/ 

/Vi.PlVlSlON 
/ 
SpFLDV LAC (llj 

.JHP SPFLEX 
/ 

/,, (REVERSE SUBTRACTION 

/ 

SPFLRS LAC (12) 

^MP SPFLEX 
/ 

/.mReverse division 
/ 

SPFLRD LAC (13) 

JMP SPFLEX 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

•EJECT 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
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01127 R 200527 R lAC OPgOOE 

01130 R 504!375 R AND (0P6T09) 



01147 R 740200 A Si?A 

01150 R 440543 R IS2 OVRFt^X 

O 01151 R 203707 R L,AC %FAC4 ' 

01152 R 744020 A RCR 

01153 R 043705 R OAC 7,FAC2 
O 01154 R 204565 R LAC %FAC4A 

01155 R 740020 A RAR 

01156 R 043706 R DAC %FAC3 
O ' .EJECT 



o 
o 
o 
o 
o 
o 

o 



o 
o 



O /SINGLE AND DOUBl-E PRECISION INTEGER SOFTWARE EXECUTIONER O 

01121 R 204563 R OPIEX LAC SOFTEX 

01122 R 041125 R DAC DOIEX ^ 
O 01123 R 103722 R JMS DUG /LQaD 3 RANUOM WORDS O 

01124 R 000513 R ,DSA JiXFACl /AND FLOAT IF INTEGER 

01125 R 000000 A DOIEX CAL ' ^ 
O 01126 R 000516 R ,OSA JiXHACl O 



O 



O 01131 R 544600 R SAD (NUL) 

01132 R 741000 A SKP 

01133 R 601157 R JMP DPIEXI 

O /OPERATION IS'INTEGER MULTIPLY O 

/MUST SWAP AND SHIFT ONE RIGHT BECAUSE OF SOFTWARE FINISH POINT 

/MY FMQ = %FAC2 AND %FAC3 WITH THE HIGH ORDER BITS ^ 

O /IF °4FAC2 OR J4FAC3 NOT = 0» tl TO OVRFLX O 

/IF = 0, SWAP'%FAC2, 3 WITH %FaC4, 4A 

01134 R 200527 R LAC OPCODE 
O 01135 R 504610 R AND <DP) 

01136 R 544610 R SAD (OP) 

01137 R 60li43 R JMP ,+4 

O 01140 R 203707 R LAC %FAC4 O 

01141 R 740200 A SZA 

01142 R 440543 R IS2 OVRFLX 

O 01143 R 203705 R LAC %FAC2 O 

01144 R 740200 A SHA 

01145 R 440543 R ISH OVRFLX 
O 01146 R 203706 R LAC %FAC3 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 










o 
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FPX5T2 SRC 


o 












01157 


R 


203705 


R 




01160 


R 


543706 


R 


o 


01161 


R 


7402K0 


A 




01162 


R 


601200 


R 




01163 


R 


143704 


R 


o 


01154 


R 


143707 


R 




01165 


R 


143721 


R 


o 












01166 


R 


200544 


R 




01167 


R 


741200 


A 


o 


01170 


R 


600127 


R 




01171 


R 


200515 


R 




01172 


R 


740200 


A 


o 


01173 


R 


440543 


R 




01174 


R 


200520 


R 




01175 


R 


740200 


A 


o 


01176 


R 


440543 


R 




01177 


R 


600127 


R 


o 


01200 


R 


102102 


R 




01201 


R 


203721 


R 




01202 


R 


744100 


A 


o 


01203 


R 


600127 


R 




01204 


R 


203706 


R 




01205 


R 


imwix 


A 


o 


01206 


R 


043706 


R 




01207 


R 


203705 


R 




01210 


R 


741401 


A 


o 


01211 


R 


344643 


R 




01212 


R 


043705 


R 


o 


01213 


R 


600127 


R 


o 










o 










o 










o 










o 





















o 










o 











«KPl5T2f TEST MOf:iUtE FOR SYSTEM EXERCISER 



o 

o 



o 



o 



7IF RESULT IS HERO -^ CLEAR EXPONENT Q 

DPIEXi UAC %FAC2 

SAD %FAC3 

SZA 

JHP DPIEX2 

OHM %FAC1 

DZM %FAC4 Q 

OHM %FSICN 
/IF INTEGER DIVISION BY ZERO JS EXPECTED AND THE FMA IS NOT 000000 
/THEN EXPECT OVEKFLON #30 ALSO WHEN SPI STORE" O 

i,AC IDVBY0 

SNA 

JMP FPUXAl 

LAC %XFAC3 

S2A 

ISH OVRFLX /BECAUSE "/.XFAC3 IS NORMALIZED IN FPU HARDWARE O 

LAC %XHAC3 

SZA 

ISZ OVRFLX 

JHP FPUXAl 
/COMBINE SIGN BIT'WITH AC 
PPIEX2 JMS %nX, " /nx BACK TO INTEGER O 

LAC %FSIGN 

SMAICLL 

UMP FPUXAl 

LAC %FAq3^ 

fCA 

DAC %FAC3 

LAC %FAC2 

CMAIS2L 
TAD (1) 
DAC %FAC2 
gMP FPUXAl 
.EJECT 



c 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 

01225 
01226 
01227 

01230 

01231, 

01232 

01233 

01234 

01235 

01236 

01237 



FP1I?T2 SRq 



JFP15T2I [EST MODUl^E FOR SYSTEM EXERCISER 



R 341 
R 041 
R 044 
R 200 
R 504 
R 544 
R 601 
R 101 
R 103 
R 000 
R 000 
R 000 



415 R 
226 R 
563 R 
527 R 

603 R 

604 R 
121 R 
310 R 
722 R 
513 R 
0»0 A 
516 R 



R 203705 R 

R 543706 R 

R 740200 A 

R 601240 R 

R 143704 R 

R 143707 R 

R 143721 R 

R 600127 R 



01240 R 203721 R 

01241 R 343705 R 

01242 R 043705 R 

01243 R 600127 R 



/DOUBLE PRECISION FLOAT: 
OPFLEX TAD SOFCQU 
DAC DOFEK 
QAC SOFTEX// 
LAC OPCODE 
AND (FU 
SAD (CAL) 
JMP DPIEX 
JMS SOFNR 
JMS DLAC 
,DSA %XFAC1 



NG SOFTWARE EXECUTIONER 



DOFEX CAl 

,DSA JSXHACl 
RESULT IS'HeRU s 
LAC %FAC2' 



/IF 



/SOFTWARE CALCULATIONS 
CLEAR EXPONENT 



SAD 
SHA 

JMP 
D?.M 
D2M 
DHM 
JMP 



%FAC3 

I*? 

%FAC1 
%FAC4 
%FSIGN 
FPUXAl 



/COMBINE SJGN BIT WITH AC 



LAC DESIGN 
TAD %FAC2 
DAC %FAC2 
JMP FPUXAl 
,EJECt 



/SOFTWARE RESULT LEFT IN ?«FAC1 TO %FAC3 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
c 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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irPl5T2l TEST MOpyi^E FOR SYSTEM EXERCISER 



01244 

01245 
01246 
01247 
012^0 
01251 
01252 
01253 
01254 
01255 
01256 
01257 
01260 
01261 
01262 
01263 



R 341 
R 041 
R 044 
R 200 
R 504 
R 544 
R 601 
R 777 
R 344 
R 044 
R 601 
R 101 
R 104 
R 000 
R 000 
R 000 



415 R 
262 R 
563 R 
527 R 
603 R 
603 R 
257 R 
772 
563 
563 R 
121 R 
310 R 
71 R 
513 R 
000 A 
516 R 



012/4 
01275 
01276 

01277 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 



R 203 

R 343 

R 043 

R 203 

R 504 

R 043 

R 203 

R 504 

R 343 

R 043 

R 143 

R 600 



A 
R 



01264 R 203705 R 

01265 R 543706 R 

01266 R 740200 A 

01267 R 601274 R 

01270 R 143704 R 

01271 R 143707 R 

01272 R 143721 R 

01273 R 600127 R 



721 R 

705 R 

705 R 
704 R 
655 R 
704 R 

706 R 
630 R 

704 R 

704 R 

706 R 

127 R 



/ 

/SINGLE 
/ 

spri,Ex 



PRECISION FLOATING SOFTWARE EXECUTIONER 



SOFCOP 
SdFEX 
SOFTEX 
OPCODE 

,+5 

"I? o 

SOFTEX 
SdFTEX 

dpTex 

SOFNR 

FLAG 
54XFAC1 



SOFEX 
/IF 



TAD 
DAC 
DAG 
LAC 
AND 
SAD 
JMP 
LAW 
TAD 
DAC 
UMP 
JHS 
JMS 
,DSA 

CAL 

,DSA %XHAC1 
RESULT IS'2ERQ r. 
LAC %FAC2 



/BACK UP 
/POINTER FOR 
/DP SOFTWARE 
/AND GO TO INTEGER 



/SOFTWARE CALCULATIONS 
CLEAR EXPONENT 



SAD 
SHA 
JMP 

Q?,M 
DEM 
OHM 
JMP 



%FAC3 

%FAC1 
%FAC4 
%FSIGN 
FPUXAl 



/COMBINE SIGN BIT WITH 
LAC %FS1GN 
TAD %FAC2 
DAC %FAC2 
LAC %FAC1 
AND (777) 
DAC %FAC1 
LAC %FAC3 
AND (777000) 
TAD %FACi" 
DAC %FAC1 
QZM %fAC3 
JMP FPUXAl 
.EJECT 



AC 



/SOFTWARE RESULT LEFT IN %FAC1 TO %FAC3 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
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PP15T^ 


J SRC 


'FP15T2' 


TEST MODULE FOR SYSTEM EXERCISER 


o 










/SOFTWARE NORMaiZEIR FOR t,OAD FUNCTION CONFIRMATION 




01310 


R 


001310 


R 


SOFNR 


,DS^ 


^ » 




01311 


R 


200527 


R 




LAC 


OPCODE 


o 


01312 


R 


504575 


R 




AND 


(0P6T09) 




01313 


R 


544601 


R 




SAD 


(PIV) 




01314 


R 


741000 


A 




SKP 




o 


01315 


R 


544637 


R 




SAD 


(RDJV) 




01316 


R 


601326 


R 




*JMP 


SOFl 




01317 


R 


200527 


R 




LAC 


OPCODE 


o 


01320 


R 


504656 


R 




AND 


(UNJFL) 




01321 


R 


544604 


R 




SAD 


(CAD 




01322 


R 


621310 


R 




sJMPt 


i SOFNR 


o 


01323 


R 


504657 


R 




AND 


(UN) 




01324 


R 


544657 


R 




SAD 


(UN) 




01325 


R 


621310 


R 




JMP* 


i SOFNR 


o 


01326 


R 


200527 


R 


SOFl 


LAC 


OPCODE 




01327 


R 


504610 


R 




AND 


(DP) " 




01330 


R 


544610 


R 




SAD 


(DP) 


o 


01331 


R 


601335 


R 




JMP 


S0F2 




01332 


R 


200513 


R 




LAC 


%XFAC1 




01333 


R 


504630 


R 




AND 


(777000) 


o 


01334 


R 


040515 


R 




DAC 


%)(FAC3 




01335 


R 


200514 


R 


S0F2 


LAC 


%)(FAG2 




01336 


R 


504660 


R 




AND 


(377777) 


o 


01337 


R 


540515 


R 




SAD 


%XFAC^ 




01340 


R 


740200 


A 




SZA 






01341 


R 


741000 


A 




SKP 




o 


01342 


R 


621310 


R 




JMP* 


i SOFNR 




01343 


R 


200514 


R 




LAC 


?iXFAa2 




01344 


R 


504626 


R 




AND 


(400000) 


o 


01345 


R 


043721 


R 




DAC 


%FSiGN 




01346 


R 


200514 


R 




LAC 


%XFAC2 




01347 


R 


504660 


R 




AND 


(377777) 


o 


01350 


R 


040514 


R 




DAC 


%XFAC2 




01351 


R 


200514 


R 


FNXSA 


LAC 


%XFAC2 




01352 


R 


504661 


R 




AND 


(LAC) 


o 


01353 


R 


740200 


A 




S2A 






01354 


R 


601405 


R 




JMP 


SOFNHX 




01355 


R 


200515 


R 




LAC 


%XFAC3 


o 


01356 


R 


744010 


A 




RCL 






01357 


R 


040515 


R 




DAC 


%XFAC3 




01360 


R 


200514 


R 




LAC 


%XFAC2 


o 


01361 


R 


740010 


A 




RAL 






01362 


R 


040514 


R 




DAC 


%XFAC2 




01363 


R 


200527 


R 




LAC 


OPCQDE 


o 


01364 


R 


504610 


R 




AND 


(DP) 




01365 


R 


544610 


R 




SAD 


(OP) 




01366 


R 


601401 


R 




JHP 


S0F3 


o 












.EJECT 


o 
















o 
















o 

















o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 



o 
o 
o 
o 
o 
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O 

o 
o 
o 

o 



O 01267 R 2005J13 R UAC %XFAC1 

01370 R 504630 R AND aiim^) 

01371 R 040^30 R OAC TEMP 
O 01372 R 200513 R tAC '/.XFACl 

01373 R 504655 R AMD <,fll} 

01374 R 34463.1 R TAD (-^1) 
O 01375 R 504655 R AND (777) 

01376 R 340530 R TAD TEMP 

01377 R 04053,3 R DAC "/.XFAQl ^ 
O 01400 R 601351 R JMP FNXSA O 

01401 R 777777 A S0F3 LAW «1 

01402 R 340513 R TAD %XFAC1 

O 01403 R 040513 R DAC %XPACi O 

01404 R 601351 R JMP FNXSA ' 

01405 R 200514 R SOFNRX LAC %XFAC2 

O 01406 R 343721 R TAD %rSlGN O 

01407 R 040511 R DAC %XFAC2 

01410 R 200527 R L,AC OPCODE 

O 01411 R 504610 R AND (DP) O 

01412 R 544604 R SAD (CAL) 

01413 R 140515 R DZM %XFAC3 

O 01414 R 621310 R 4MP» SQFNR O 

/SOFTWARE CALCUCAflON SUBROUTINES 

O 01415 R 121416 R SOFCOO JMS« ,+1 O 

y 

/DOUBLE PRECISION FL0ATIN(3 AND SP AND DP INTEGER ^ 

O / "" o 

01416 R 004055 R ,DSA OFAD /ADDITION 

01417 R 0037/1 R ,DSA DSUB /SUBTRACTION . _ 
O 01420 R 004000 R ,DSA OMpY /MULTIPLICATION O 

01421 R 004025 R ,DSA UDVD /DIVISION 

01422 R 004042 R ,DSA DSHR /REVERSE SUBTRACTION ^ 
O 01423 R 004013 R ,DSA DDVR /REVERSE DIVISION O 

/ 

/SINGLE PRECISION FLOATING 

O / "■ • 

01424 R 004135 R ,DSA FAO /ADDITION 

01425 R 004151 R ,DSA FSUB /SUBTRACTION 

O 01426 R 004160 R ,OSA FMPY /MULTIPLICATION O 

01427 R 004173 R ,DSA FDVU /DIVISION 

01430 R 004210 R ,DSA FSBR /REVERSE SUBTRACTION 

O 01431 R 004223 R ,DSA FOVR /REVERSE DIVISION O 



o 



(EJECT 



O 
O 
O 

o 

o 



o o 

o o 

PAGE 26 FPa,:?T2 SRq 'FP15T2! TEST MODULE FQR SYSTEM EXERCISER 

O /INTERRUPT EXCEPTION EXIT ADDRESS O 

01432 R 0000M0 A XJEA 

03,433 R 601442 R JMP OVFLO /OVERFUQW 

O 01434 R 0000I0 A O 

01435 R 6014S4 R JMP UNPl,0 /UNDERFUOW 

03,436 R 000000 A ' 

O 01437 R 6014653 R JMP DVBY0 /ABNORMAL, DIVISION BY ZERO O 

01440 R 000000 A 

01441 R 6014/6 R JMP NEXMEM /IlLEGAL MEMORY REFERENCE 

o "■ / - 

/OVERFL,QW 

O 01442 R 777777 A OVFLO UAW "1 

01443 R 341432 R TAD XJEA /DECREMENT RETURN 

01444 R 041432 R DAC XJEA /pC 0Y QNE 
O 01445 R 044560 R DAC JEAORS^ 

01446 R 200540 R LAC OVRFUR /FROM ROUNPING 

01447 R 340536 R fAO OVRFU 
O 01450 R 340543 R TAD OVRfCx 

01451 R 750200 A SZAJCLA 

01452 R 621432 R JMP« XJEA 

O / 

/UNEXPECTED HARDWARE OVERFLOW? 

/ 
O /I, FROM ROUNDING 

/ 2, FROM EXPONENT VIA MULTIPLY 

/ 
O 01453 R 601502 R JMP XFLOH 

/ 

/UNDERFLOW 
O / 

01454 R 777777 A UNFLO LAW »1 

01455 R 341434 R fAO XJEA*2 /DITTO 
O 01456 R 041434 R DAC XJEA+2 

01457 R 044560 R DAC JEADRS 

01460 R 200541 R LAC UNDFLN /FROM N0RMALI2ATIN 

O 01461 R 34053/ R TAD UNDFLl 

01462 R 7^0200 A SEAJCLA 

01463 R 621434 R JMP« XJEA*2 /UNDERFLOW EXPECTED 

o ■ '■ ■ / 

/UNEXPECTED HARDWARE UNDERFLOW 

/ 
O / i5? FROM NORMALISATION 

/ 4, FROM EXPONENT VIA MULTIPLY 

/ 
O 01464 R 601502 R JMP XFLQW 



O 
O 
O 
O 



•EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 



o 
o 
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01507 R 200!?36 R LAC OVRFl^l 

O 01510 R 54460^ R SAD (CAL,) 

01511 R 601514 R JMP 1*3 

01512 R 204644 R UAC (2) / 2, EXPONENT QVERFt,OW 



O 
O 

o 
o 



O /DIVISION BY ZERO 

01465 R 777777 A DVBY0 UAW ^1 

O 01466 R 341436 R TAD XJEA+4 

01467 R 041436 R DAC XJEA+4 

01470 R 044560 R DAC JEAORS 

O 01471 R 200542 R l,AC DVBY00 U 

01472 R 340544 R TAD IPVUY0 

01473 R 750200 A SZAICUA _. 
O 014/4 R 621436 R JMP« X-JEA-^4 /ABNORMAL DIVlSjON EXPECTED ^ 

/ 

/UNEXPECTED HARDWARE ABNORMAL DIVISION _, 

o / o 

01475 R 601502 R JMP XFLOW 

/ " , 

O /ILLEGAL MEMORY REFERENCED ^ 

/ 

01476 R 740040 A NEXMEM HLT 

O 01477 R 601476 R JMP ,''1 

01500 R 740040 A TNEXMM HLT 

01501 R 601500 R JMP ,^1 
O 01502 R 200540 R XFLOW LAC OVRFL« 

01503 R 544604 R SAD (CAL? 

01504 R 601507 R JMP ,*3 ^ 
O 01505 R 204643 R LAC (1) / 1, OVERFLOW FROM ROUNQINC ^ 

01506 R 604344 R JMP ERR0R3 /UNEXPECTED JEA BREAK 



o 
o 



O 01513 R 604344 R JMP ERR0R3 

01514 R 200541 R LAC UNDFLN 

01515 R 544604 R SAD (CAL,) 
O 01516 R 601521 R JMP ,*3 

01617 R 20464S R LAC {i) / 3, UNDERFLOW FROM NORMIL IZAT ION 

01520 R 604344 R JMP ERR0R3 

O 01521 R 200537 R LAC UNDFLI 

01522 R 5446-^4 R SAD (CAL) 

01523 R 601526 R JMP ,+3 

O 01524 R 204646 R LAC (4J / 4, EXPONENT UNDERFLOW ^ 

01625 R 604344 R JMP ERR0R3 

01526 R 200542 R LAC DVBY00 

O 01527 R 544604 R SAD (CAL) 

01530 R 601533 R JMP ,+3 

01531 R 204647 R LAC (5) / 5, FLOATING ABNORMAL DIVIDE 
O 01532 R 604344 R JMP ERR0R3 

01533 R 200544 R LAC IDVBY0 

01534 R 544604 R SAD (CAL)^ 
O 01535 R 604344 R JMP ERR0R3 

01536 R 204662 R LAC (25) " / 25, INTEGER DIVISION BY ZERO 

01537 R 604344 R JMP ERRQR3 
O , EJECT 



o 
o 
o 
o 



o 
o 
o 
o 
o 
o 



o 








o 
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FP1'jT2 


o 










01540 


R 


2046S2 R 




01541 


R 


741000 A 


o 


01542 


R 


204653 R 




01543 


R 


741000 A 




01544 


R 


204625 R 


o 


01545 


R 


604356 R 




01546 


R 


204654 R 




01547 


R 


741000 A 


o 


01550 


R 


204663 R 




01551 


R 


604356 R 




01552 


R 


204664 R 


o 


01553 


R 


741000 A 




01554 


R 


204665 R 




01555 


R 


6043^6 R 


o 










01556 


R 


001556 R 




01557 


R 


777777 A 


o 


01560 


R 


040534 R 




01561 


R 


040535 R 




01562 


R 


200527 R 


o 


01563 


R 


504627 R 




01564 


R 


544603 R 




01565 


R 


741000 A 


o 


01566 


R 


601606 R 




01567 


R 


140515 R 




01570 


R 


140533 R 


o 


01571 


R 


140520 R 




01572 


R 


621556 R 


o 


01573 


R 


000000 A 




01574 


R 


200527 R 




01575 


R 


504627 R 


o 


01576 


R 


544627 R 




01577 


R 


741000 A 




01600 


R 


621573 R 


o 


01601 


R 


200351 R 




01602 


R 


504666 R 




01603 


R 


34 4620 R 


o 


01604 


R 


040351 R 




01605 


R 


621573 R 


o 


01606 


R 


544604 R 




01607 


R 


741000 A 




01610 


R 


601625 R 


o 


01611 


R 


140514 R 




01612 


R 


140532 R 




01613 


R 


143705 R 


o 


01614 


R 


140517 R 




01615 


R 


140513 R 




01616 


R 


140531 R 


o 


01617 


R 


140516 R 




01620 


R 


143704 R 


o 








o 









SRq 'FP15T2I TEST MODUU FOR SYSTEM EXERCISER 



o 

o 



/EXPECTED INTERRUPTS FROMft,BUT NONE OCCURED O 

EINTll tAC (ii) / 11, OVERFLOW FROM ROUNDING 

SKP 

EINTIS lAC (12) / 12, EXPONENT OVERFUOW O 

SKP 

EINT30 UC (30) / 30, INTEGER OVERSOW 

JMP ERR0H4 /EXPECTED JEA BREAK BUT NONE OCCURRED O 

EINT13 LAC (13) / 13, UNDERFUOW FROM NORNAl, l5iAT ION 

ci/ p 

EINT14 UAC (14) / 14, EXP UNQFUON O 

JMP ERR0R4 /EXPECTED JEA BREAK BUT NONE OCCURRED 
EINT15 UAC (15) " / 15, FLOATING ABNORMAL DIVISION 

SKP O 

EINT35 LAC (35) / 35, INTEGER DIVISION BY ZERO 

JMP ERR0R4 /EXPECTED JEA BREAK BUT NQNE OCCURRED 
/SINGLE PRECISION FLOATING RESTRICTIONS FOR "RANDEX" O 

IFREST ,DSA , 
SPFRES LAW "1 _ 

DAC %NA1 /PREP FOR POSSIBLE O 

DAC %NA2 /DATA FORMAT ERROR 

LAC OPCODE 

AND (UP}FL) O 

SAD (FL) 

SKP ~ ^ 

JMP SPIRES O 

D^M %XFAC3 

D^;M %ANSR3 

DZM %XHAC3 O 

JMP« IFREST 
/DOUBLE PRECISION 'FLOATING RESTRICTIONS FOR "RANDEX" 
OPFRES "^ O 

LAC OPCODE 

AND (OPJFL) 

SAD (DPJFL? O 

SKP 

JMPo OPFRES 

LAC FPUST~ O 

AND (sURr^l) /ALWAYS STORE UR FOR DP FL 

TAD (UR) 

DAC FPUST O 

JMPi> DPFRES 
/SINGLE PRECISION INTEGER ReSTRICTINS FOR "RANDEX" 
SPIRES SAD (CAl) " O 

SKP 

JHP DPIRES 

D5?M %XFAC2 O 

D2M %ANSR2 

DZM %FAC2 ' 

DZM %XHAC2 O 

DZM %XPAC1 

D2M %ANSRi 

D?M %XHACi O 

DZM %FAC1 ' 

O 

o 



o 








o 










PAGE 2y 




PP15T2 


o 










01621 


R 


200515 R 


o 


01622 


R 


544626 R 




01623 


R 


440543 R 




01624 


R 


621556 R 


o 










01625 


R 


544610 R 




03,626 


R 


741000 A 


o 


01627 


R 


621556 R 




01630 


R 


140513 R 




01631 


R 


140531 R 


o 


01632 


R 


140516 R 




01633 


R 


143704 R 




01634 


R 


621556 R 


o 










01635 


R 


000000 A 




01636 


R 


200542 R 


o 


01637 


R 


340544 R 




01640 


R 


740200 A 


o 


01641 


R 


621635 R 


01642 


R 


200527 R 




01643 


R 


504603 R 


o 


01644 


R 


5446^4 R 




01645 


R 


621635 R 


o 


01646 


R 


200527 R 




01647 


R 


504667 R 




01650 


R 


544670 R 


o 


01651 


R 


621635 R 




01652 


R 


200527 R 


o 


01653 


R 


504667 R 




01664 


R 


544670 R 




01655 


R 


621635 R 


o 










01656 


R 


777777 A 


o 


01657 


R 


044554 R 


01660 


R 


144553 R 




01661 


R 


200527 R 


o 


01662 


R 


504610 R 




01663 


R 


544610 R 




03,664 


R 


601670 R 


o 


01665 


R 


203704 R 




01666 


R 


504630 R 




01667 


R 


741000 A 


o 








o 








o 








o 









SRC 'FP15T2' TEST M0PUI,E FOR SYSTEM EXERCISER 



O 

o 



/IF MANTISSA = 400000^ *1 TO OVRFL,X O 

/BECAUSE BQUNDRY MMIT EXCEEDED AND OVERFLOW Wat ON CPPUST 

LAC %XFAg3 

SAD (400000) O 

IS2 OVRFyX 

JMP« IFREST 
/DOUBtE PRECISION INTEGER RESTRICTIOS FOR "RANOEX" O 

OPIRES SAD (DP) 

SKP 

JMP» IFREST O 

DHM %'XFAGl 

DHM %ANSR1 

Om %XHACi O 

D2M %FACl" 

,JMP» iFREST 
/IF ABNORMAL, DIVISION DO NOT BRANCH O 

TpBRA 

LAC DVBY00 

TAD IOVBY0 O 

SHA 

JMP» TFBRA /EXIT « NO TEST 
/IF INTEGER e'EXJT « NO BRANCHING HERE O 

LAC OPCODE 

AND (PU ~ 

SAD (CAD O 

JMP» TFBRA 
/IF SpFrtUR EXIT 

i,AC OPCODE O 

AND (DPIFUURSUN) 

SAD (FLIUR) 

JMP<t TFBRA /EXIT O 

/IF SPF^UR EXIT 

LAC OPCODE 

AND (OPIFUURIUN) . O 

SAD (FUURJ 

JMP* TFBRA /EXIT 

/ERRORS OCCURlNG NOW ARE BRANCH FUNCTION FAILURES O 

LAW r,X 

DAC cdMPLD 
/BRANCH IF ZERO PMA O 

TB2A D^M BRANCH* 

LAC OPCODE 

AND (OP) 
SAD (DP) 
JMP TBHAl 
LAC %FAC1 
AND (77'mm) 



SKP 
.EJECT 



O 

o 
o 
o 
o 

o 



o 
















o 
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PP15T2 SRC 


'FP15T2' TEST HOPULE FOR SYSTEM 


o 


016/0 


R 


203706 


R 


TBZAl 


UAC %FAC3 






01671 


R 


040530 


R 




OAC TEMP 






0167^ 


R 


203/05 


R 




l,AC %FAC2 




o 


01673 


R 


504660 


R 




AND 1671777) 






01674 


R 


540550 


R 




SAD TEMP 






01675 


R 


741000 


A 




SKP 




o 


01676 


R 


601701 


R 




.JMP ,*3 






01677 


R 


741200 


A 




SNA 






01700 


R 


444553 


R 




ISZ BRANCH 




o 


01701 


R 


204671 


R 




(,AC (S^A? 






01702 


R 


101752 


R 


/BRANCH 


gnS SBRAN 

IF NEGATIVE FMA 




o 


01703 


R 


14455^5 


R 


TBMA 


DHM BRANCH 






01704 


R 


203721 


R 




UAC %FSIGN 






01705 


R 


741100 


A 




SPA 




o 


01706 


R 


444553 


R 




IS2 BRANCH 






01707 


R 


204672 


R 




UAC (BMA) 






01710 


R 


101752 


R 




JMS SBRAN 




o 










/BRANCH 


IF FMA < OR ? 






01711 


R 


144553 


R 


TBUE 


D2M BRANCH 






01712 


R 


203/05 


R 




UAC %FAC2 




o 


01713 


R 


741100 


A 




SPA 






01714 


R 


444553 


R 




IS2 BRANCH 






01715 


R 


504660 


R 




AND (377777) 




o 


01716 


R 


540530 


R 




SAP TEMP' ■ 






01717 


R 


741000 


A 




SKP 






01720 


R 


601723 


R 




JMP ,*3 




o 


01721 


R 


741200 


A 




SNA 






01722 


R 


444553 


R 




ISZ BRANCH 






01723 


R 


2046/3 


R 




UAC (BUET 




o 


01724 


R 


101752 


R 


/BRANCH 


JMS SBRAN 

IF POSITIVE FMA 






01725 


R 


144553 


R 


TBPA 


DZM BRANCH 




o 


01726 


R 


203721 


R 




UAC %FSIQN 






01727 


R 


740100 


A 




SMA 






01730 


R 


444553 


R 




ISZ BRANCH 




o 


01731 


R 


2046/4 


R 




UAC (BPA) ' 






01732 


R 


101/52 


R 


/BRANCH 


JMS SBRAN 
UNCONPITINAU 




o 


01733 


R 


444553 


R 


TBRU 


ISZ BRANCH 






01734 


R 


204675 


R 




UAC (BRU) ~ 






01735 


R 


101752 


R 




JMS SBRAN 




o 












•EJECT 




o 
















o 
















o 
















o 
















o 

















o 

o 

EXERCISER 

o 
o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



(J 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 

o 
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01736 R 

01737 R 
01740 R 

H7H R 

01742 R 

01743 R 

01744 R 

01745 R 

01746 R 

01747 R 
01750 R 
01754 R 

01752 R 

01753 R 

01754 R 

01755 R 

01756 R 

01757 R 

01760 R 

01761 R 

01762 R 

01763 R 

01764 R 

01765 R 

01766 R 

01767 R 

01770 R 

01771 R 

01772 R 

01773 R 

01774 R 

01775 R 

01776 R 

01777 R 

02000 R 

02001 R 

02002 R 

02003 R 

02004 R 

02005 R 

02006 R 

02007 R 

02010 R 

02011 R 

02012 R 



FP15T2 SRC 



144553 R 
203705 R 
504660 R 
540530 R 
740200 A 
444553 R 

204676 R 
101752 R 

144553 R 

204677 R 
101752 R 
621635 R 
000000 A 
041772 R 
041764 R 
204553 R 
741200 A 
101762 R 
101771 R 
621752 R 
000000 A 
441762 R 
000000 A 
001767 R 
621762 R 
604401 R 
621762 R 
000000 A 
000000 A 

001775 R 
604414 R 

621771 R 

001776 R 
776000 A 
040546 R 
204633 R 
044547 R 
204700 R 
741000 A 
344643 R 
064547 R 
444547 R 
541032 R 
621776 R 
602005 R 



'FP15T2' TEST MOPUL,E FOR SYSTEM EXERCISER 



/BRANq 

TBNA 



H 



IF 

DZM 

LAC 

AND 

SAD 

S2A 

uc 



FMA NON'^ZEHO 
BRANCH 
%FAC2" 

(377777) 

TEMP 



/BRANC 
T8AC 



SBRAN 



H 



BRANCH 
(BNA) " 
SBRAN 
IP GUARD BJT 
Di?M BRANCH 
UC <BAg) 
JMS SBRAN 
gMP» TFBRA 


YBRANCH 
NBRANCH 
BRANCH 



IS SET 



DAC 

DAC 

UAC 

SNA 

JMS NOBRAN 

gMS BRAN 

UMP» SBRAN 

NOBRAN 

ISH NOBRAN 

NBRANCH CAL 

• *2 , 

4MP«t NOBRAN 
^MP ERR0R6 
JMPft NOBRAN 

BRAN 

YBRANCH CAl 

I *? 

^MP ERR0R7 

gMPw bran' 

/RESET ADDRESS BUFFER 

JNITADR ,DSA , 

|,AW B2000 
DAC KT2000 
t,AC (AQPCDBF) 
DAC AUTOHG 
UAC (OPCDSF) 
SKP 

TAD (1) 
DACii AUTORG 
ISZ AUTORG 
SAD AEOPCQb 
JMP» INITADR 
JMP ,"5 
.EvIECT 



/GUARD BIT SHOULD ALWAYS BE CLEARED 
/THEREFORE SNA SHOULD NEVER 
/EXIT BRANCH TESTING 



FROM STORE 
BRANCH 



INSTRUCTION 



/IF = 1 
/IF = 
/BRANCH 
/BRANCH 



BRANCH 

NO BRANCH 

= 0? NO BRANCG 

= 1? BRANCH 



/EXIT BRANCHES 



/ + ! TO 
/OCTAL 



RETURN 
EQUIVALENT 



OF BRANCH INSTRUCTION 



/EXIT; OK 
/A BRANCH 



OCCURRED WHEN UNEXPECTED 



/OCTAL EQUIV 

/EXiTf OK 

/NO BRANCH OCCURRED 

TO ORIGINAL SETTING 



NHEN EXPECTED 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
c 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



PAGE 3:5 



FPlSTg SRQ 



300000 A 



FPOINT^NON 
ARITHMETIC 



SUBTITI,E: FPOiNT^NON 

.TITLE SUBTITUE: 
/GENERAL FLOATING POINT 
/ 

/ FLOATING POINT MATH (NON^EAE) 
/ 

f %FLOT. 

/ %FUNF, 

/ %FNEG, 

/ %FG, 

/ %FNOR, 

/ %FH, 

/ %F \ R , 

/ %FS, 

/ %ANEG, 

/ %SWICH 

/ 

/ %FA| 

/ %FM, 

/ ?SFD, 

/ 

/ 

/TERMS? 

/ %FAC1 

/ %FAC2 

/ ^'.PACS 

/ 

/ JSHACl 

/ %HAC2 

/ %HAC3 

/ AwREG 

/ 

/ 

ADD155300000 

•EJECT 



FLOAT INTEGER TQ FLOAT 

UNFLOAT SECOND WORD OF 

NEGATE THE FLOATING ACCUMULATOR 

SHORT GET ARGUMENT (ADDRESS) 

NQRMALI2E THE FLOATING ACCUMULATOR 

HOLD THE FLOATING ACCUMULATOR 

ROUND RESULT AND INSERT SIGN 

SIGN CONTROL 

NEGATE A-REG, 

SWITCH THE FLOATING AND HELD ACC'S, 



NG ACCUMULATOR? 

FLOATING ACCUMULATOR TO A^REG, 



GENERAL 
GENERAL 
GENERAL 



FLOATING 
FLOATING 
FLOATING 



ADD 

HULTIPLY 

DIVIDE 



EXPONENTs'FLOATlNG POINT ACCUMULATOR 
SIGN+HIGH«0R0ER MaNTISSA'^FLT ACC 
LdW«ORDER MANTISSA-FLT ACC 



EXP0NENT«HELD ACCUMULATOR 
SIGN+HIGH«QRDER MANTISSA^HELD 
Ld'W^ORDER MANTISSA 
HARDWARE ACCUMULATORCAC) 



ACC 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PACE 



34 
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SUBTJTl,E FPQJNTs'NQN 










> 












/ 

/NEGATE 

/ 


THE A»KEQ 


02013 


R 


000000 


A 


/ 

%ANEG, 





020X4 


R 


744001 


A 




CMAjCLL, 


0201? 


R 


344643 


R 




TAO (1 


02016 


R 


62201? 


R 


/NEGATE 


THE FSIGN 


02017 


R 


000000 


A 


%SNEG, 


" ■ 


02020 


R 


203721 


R 




I^AC %FSJGN 


02021 


R 


244626 


R 




XOR (400000) 


02022 


R 


043721 


R 




DAC %FS|GN 


02023 


R 


622017 


R 


/Fl,OAT 


JMP« ?5SNEG, 
INTEGER TP FL,PATJNG ACCUMULATOR (%FL,OT,) 










/CAH,ING SEQUENCE? 










/ 


JMS %Ft,OT| /SUBR CAULUNTEGER IN A-^REG) 










/ 


NEXT INSTRUCTION /RETURNC INTEGER NORMALIZED 










/ 


/A'REG IS UNCHANGED 


02024 


R 


000000 


A 


%F10T, 





02025 


R 


200527 


R 




UAQ OPCqae 


02026 


R 


504603 


R 




AND (FU 


02027 


R 


544603 


R 




SAD ifU) 


02030 


R 


622024 


R 




JMP« :^'Fl,OT, 


02031 


R 


143704 


R 




DZM %FAC1" 


02032 


R 


200527 


R 




LAC OPCODE 


02033 


R 


504610 


R 




AND (liP) ^ 


02034 


R 


544610 


R 




SAD (DP) 


0^033 


R 


602040 


R 




JMP ,+3 


02036 


R 


203706 


R 




LAC ?iFAq3 


02037 


R 


602043 


R 




JMP ,*4 


02040 


R 


203705 


R 




LA(? %FAC2 


02041 


R 


504660 


R 




AND (377777) 


02042 


R 


543706 


R 




SAD JiFACS' 


02043 


R 


740200 


A 




SZA 


02044 


R 


602050 


R 




JMP ,+4 


02045 


R 


143705 


R 




D2M %FAC2 /ZERO SJGN 


02046 


R 


143706 


R 




D2M %FAC3 


02047 


R 


622024 


R 




JMP« /.PLOT, 


020£'0 


R 


200527 


R 




LAC OPCOQl 


02051 


R 


504610 


R 




AND (PP) 


02052 


R 


544610 


R 




SAO (OP) 


02053 


R 


602065 


R 




JMP %FL0T1 


02054 


R 


203706 


R 




LAC %FAC3' 


02055 


R 


504626 


R 




AND (400000) 


02056 


R 


043705 


R 




DAC %FAC2" 


02057 


R 


740100 


A 




SHA 


02060 


R 


622024 


R 




dHP* ?«rLOTi 


02061 


R 


203706 


R 




LAC %FAC3" 


02062 


R 


740031 


A 




TEA 


02063 


R 


043706 


R 




DAC %FAC3 


02064 


R 


622024 


R 




JMP» %FL6T, 



JN FLT ACC) 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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35 FP1!=T? 5RC 


SUBTITLE FPOINT^NqN 


02065 R 20371^5 R 


5'^FI,0T1 


L,AC %FAC2 


02066 R 744100 A 




SMAICLI, 


02067 R 622024 R 




vJMP« "/«F^,OT, 


02070 R 2037^6 R 


%Fl,0T2 


(,AC ?4FAC3 


02073,: R 740031 A 




TCA 


02072 R 043706 R 




DAC %FAq3 


02073 R 20370& R 




UAC %FAC2 


02074 R 741401 A 




CMAIS21, 


02075 R 344643 R . 




TAD (1? 


02076 R 504660 R 




AND (377777) 


02077 R 344626 R 




TAD (400000) 


02100 R 043705 R 




DAC %FAC2' 


02101 R 622024 R 




JMP« PoFl,OT, 




/FIX THE Fl,OAT?Na AC 


02102 R 000000 A 


%FIX, 





02103 R 203704 R 




LAC %FACi 


02104 R 741200 A 




SNA 


02105 R 602121 R 




»JMP %PIXB /NO REALIGNMENT NECESSARY 


02106 R 203707 R 




LAC %fAC4 


02107 R 744010 A 




RCL 


02110 R 043707 R 




DAC %FAC4 


02111 R 044557 R 




DAC GUARD 


02112 R 203706 R 




UAC %FAC3 


02113 R 740010 A 




RAL 


02114 R 043706 R 




DAC %FAC3 


02115 R 203705 R 




|,AC %FAC2 


02116 R 740010 A 




RAL 


02117 R 043705 R 




DAC %FAq2 


02120 R 143704 R 




DZM %FAqi 


02121 R 200i'27 R 


%FIXB 


LAC OPCODE 


02122 R 504575 R 




AND {0P6T(39) 


02123 R 544637 R 




SAD (RDfV) 


02124 R 622102 R 




v^MP^t t'tJ^i 


02125 R 544601 R 




SAD (D|V) 


02126 R 622102 R 




JMP« %F1X, 


02127 R 200527 R 




tAC OPCODE 


02130 R 504610 R 




AND (DP) 


02131 R 544610 R 




SAD (OP) 


02132 R 602135 R 




JMP ,*3 


02133 R 203706 R 




tAC %FAC3 


02134 R 741000 A 




SKP 


02135 R 203705 R 




LAC %FAq2 


02136 R 741100 A 




SPA 


02137 R 440543 R 




ISZ OVRFLX /OVERFLOW OCCURED 


02140 R 504660 R 




AND (^77777) 


02141 R 622102 R 




JMP* ^FiX| 




/NEGATE 


THE FLOATING ACCUMULATOR (%FNEG,) 




/CALUING SEQUENCE? 




/ 


4HS %rmG /SUBR CALL (CHANGE SIGN OF NORMAL! 




/ 


NEXT INSTRUCTION /RETURN WJTH SJGN OF FLT C 


02142 R 000000 A 


%FNEG, 


/ENTRY-'EXIT 


02143 R 203705 R 




LAC %FAC? /SIGN WORD OF FLOATING ACCUMULATOR 


02144 R 543706 R 




SAD %FAC3"" 



:d FLT ACC, 
CHARGED, 



O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 



o 

o 
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o 
o 



O 02145 R 7402M0 A SZA /IF ABSOLUTE HgRO 00 NOT NEGATE: O 

02146 R 244626 R XOR (400000 /CHANGE SIGN 

02147 R 043705 R DAC /»FAC2 /RESTORE „ 
O 02150 R 622142 R ^MP» ?4FNEG, /EXIT O 

/ 
/ 

O / 



o 

/SHORT GET ARGUMENT RQUTINE (%FGj) 

/CALl,ING SEQUENQEJ 
O / ' (PQ^i) /ADDRESS OF ARG IN USERS PROG, U 

/ (PG) ' JMS %FG, /SUBR QMU 

/ (Pq*l) /(STORE ADDRESS HERE) „ 

O / (PC*2} NEXT INSTRUCTION /RETURN HERE O 

/ 

/SUBROUTINE %FG, GOES BACK TWO LEVELS «THREE IF INDIRECT) 
O /TO GET THE ADDRESS OF AN ARGUMENT AND STORES IT AT PC+1 O 

/OF THE CALLING PROGRAM, 

O / o 

02151 R 000000 A %FG, /ENTRY^EXIT 

02152 R 202151 R LAG %FG, /MASK OF POSSIBLE _, 
O 02153 R 504701 R AND (7'777/ /SIGN BJT SET FROM O 

02154 R 042151 R DAC %FC;, /LINK DURING JMS 

02155 R 7777/6 A LAW «2 /GET CALLERS EXIT 

O 02156 R 342151 R TAD %FG, /AC=(PCb1) FROM CALL I NG ' PROGRAM ^ 

02157 R 043720 R DAC 7,J5 /SAVE FIRST LEVEL ^ 

/SECOND LEVEL ^ 

O 02160 R 223720 R LAC« %4^ /GET (ARG ADDR) AODR O 

02161 R 463720 R IS2« /'QS /BUMP CALLERS EXIT 

02162 R 043720 R DAC %J5 /SAVE ARG AOOR ^ 
O 02163 R 223720 R LAC« /»J5 /GET ARG APDR O 

02164 R 043720 R DAC %J5 /END OF 2ND LEVEL 

02165 R 741100 A SPA ' /IF BIT JS ON ADDRESS IS INDIRECT ^ 
O 02166 R 223720 R LAC» %J5 /ACCESS AGAIN O 

02167 R 062151 R DACtt %fG, /STORE ARG ADDR IN CALLING POJNT 

02170 R 442151 R %FGEX, ISZ '/.FG, /BUMP EXIT 

O 02171 R 622151 R JMPa %FG, /EXJT O 

/ 

O /.—..-,— ——.--. ^ 

/NORMALIZE FLOATING ACCUMULATOR (%FN0Ri) 
/CALLING SEQUENCE! 
O / JMS " %FNOR /SUBR CALL O 

/ NEXT INSTRUCTION /SUBR RETURN 

O / o 

/THE FLOATING POINT ACCUMULATOR IS SHIFTED LEFT UNTIL BIT 1 IS 

/ON, BEFORE ANY SHIFTING THE NUMBER IS CHECKED FOR ^ 

O /HERO, IF IT IS ^ERO THE EXPONENT IS CLEARED AND THE O 

/SIGN WORD SET OFF, 

O 02172 R 000000 A %FNOR, O 

02173 R 140541 R DZM UNDFLN 



O 

o 



o 

o 
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FP15T2 SRq 




SUBTITLE 


rPQJNTr-NON 




o 


02174 


R 


200527 R 






UAC 


PPCODt 






02175 


R 


504656 R 






ANP 


(UNIPL) 






02176 


R 


544604 R 






SAD 


(DAL?" 




o 


02177 


R 


622172 R 






JMP« 


7oFN0Rf 






02200 


R 


504657 R 






AND 


(UN) " 






02201 


R 


544657 R 






SAD 


(UN) 




o 


02202 


R 


6221/2 R 






gMP« 


/.PNOR, 






02203 


R 


203705 R 






LAC 


;^.FAC2 


/{F %FAG2 = %FAC3 




02204 


R 


504660 R 






ANP 


(3777/7 


/STRIP SIGN IN CASE 


o 


02205 


R 


043705 R 






DAC 


%FAC2 


/MINUS 2ER0. 




02206 


R 


543706 R 






SAD 


?'pFAC3 


/AND AC=0 CLEAR 




02207 


R 


740200 A 






SZA 




/THE EXPONENT AND SIG 


o 


022i0 


R 


602223 R 






JMP 


%FNORAnl 


/WITH THE FLT ACC IN 




02211 


R 


103652 R 






JMS 


QCHECK 






02212 


R 


602217 R 






JMP 


,+5 




o 


02213 


R 


203707 R 






LAC 


%FAC4 






02214 


R 


544565 R 






SAD 


%FAC4A 






02215 


R 


740200 A 






SZA 






o 


02216 


R 


602223 R 






JHP 


%FN0RAt.1 






02217 


R 


143704 R 






Oi5M 


%FAC1 


/CLEAR EXPONT 




02220 


R 


143721 R 






DEM 


%FSIGN 


/CLEAR SIGN 





02221 


R 


143717 R 






DgM 


%J4 






02222 


R 


6221/2 R 






JMP< 


%FNQRj 


/EXIT 




02223 


R 


203/05 R 






LAC 


%FAC2" 




o 


02224 


R 


7440X0 A 


%FNORA 


RCL 




/IF BIT JS ON EIT 




02225 


R 


741100 A 






SPA 




/JF NOT KEEP ROTATING 




02226 


R 


602267 R 






JMP 


%FNQRB 




o 








/ 


















/DECREMENT EXPON£;nT, 

i 




o 


02227 


R 


7777/7 A 


/ 




LAW 


»1 






02230 


R 


343/04 R 






TAD 


%FAC1 






02231 


R 


043704 R 






DAC 


5«FAC| 




o 


02232 


R 


20052/ R 






LAC 


OPCODE 






02233 


R 


504610 R 






AND 


(DP) 






02234 


R 


544610 R 






SAD 


(DP) 




o 


02235 


R 


602243 R 






JMP 


,i6 






02236 


R 


203/04 R 






LAC 


%FAC1 






02237 


R 


544702 R 






SAD 


(7/73/7) 




o 


02240 


R 


602245 R 






JMP 


,+5- • 






02241 


R 


544703 R 






SAD 


(377) 


/RANDEX SAP 




02242 


R 


602245 R 






JMP 


»*?'■ 




o 


02243 


R 


203704 R 






LAC 


%FAC1 






02244 


R 


544660 R 






SAD 


(37/7/7) 




02245 


R 


440541 R 






ISZ 


UNpFl^N 


/E?<PONENT UNDERFLOW 


o 








/ 


















/ROTATE 








o 


02246 


R 


744000 A 


f 




CLL 








02247 


R 


103652 R 






JMS 


OCHECK 






02250 


R 


602260 R 






JHP 


%FN, 







02251 
' 02252 


R 

R 


204565 R 
744010 A 






LAC 
RCL 


%FAC4A 




o 


















o 



















o 

o 
o 
o 
o 
'- o 

N THE EXIT _ 

ABSOLUTE STATE, O 

o 
o 
■ o 
o 
o 
■ o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 

o 
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O / 



G 
O 



O 022S3 R 044565 R DAC %FAC4A O 

02254 R 203y07 R UAC %FAC4 

02255 R 740010 A RAl, 

O 02256 R 043707 R DAC %FAC4 /MSED AS FMQ O 

02257 R 044557 R DAC GUARD 

02260 R 203706 R ?^PN, l,AC %FAC3 

O 02263, R 7^10010 A RAl 



O 
O 
O 



02262 R 043706 R OAC %FAC3 

02263 R 203705 R L.AC ?'.FAC2 
O 02264 R 7400X0 A RAL 

02265 R 043705 R DAC %FAC2 

02266 R 602224 R JMP %FNORA 
O 02267 R 200536 R %PN0R8 LAC OvRFLX 

02270 R 741200 A SNA 

02273, R 622172 R JMP» %FNQR, 

O 02272 R 200541 R L,AC UNPFLN O 

02273 R 741200 A SNA 

02274 R 6221/2 R gMP* %FNOR, 

O 02275 R 140536 R D2M QVRFL,! O 

02276 R 140541 R DZM UNDFLN 

02277 R 622172 R ^MP* "4FN0K, 

o ■ / '" o 

/.—-,- ,.---.-..- 

O /HOLD THE FLOATING ACCUMULATOR (%FH,> O 

/CALLING SEQUeNCEJ; 

/ JMS " %FH /CALL (VALUE IN FLOATING ACC) 

O / NEXT INSTRUCTION /RETURN (VALUE IN FLOATING ACC AND HELD AC O 

/ 

O / o 

02300 R 000000 A %FH, 

02301 R 203704 R LAC °/.FACl /EXPONENT 

O 02302 R 043710 R DAC %HAC1 O 

02303 R 203705 R LAC %FAC2 /HlGH'^ORDER MANTISSA 

02304 R 043711 R OAC %HAC2 

O 02305 R 203706 R i,AC %FAC3 /LOW-ORDER MANTISSA O 

02306 R 043712 R DAC %HAC3 

02307 R 622300 R UMP» %FH, /EXIT 

o ■■■ / - O 

/- — -- — - ------- 

/ 

O /ROUND AND INSERT SIGN (%FlR,) O 

/CALLING SEQUENCf^t 

/ JMS %FIR, /SUBR CALL 

O / ^^^/l /ROUNDOFF BIT O 

/ 777000/777776 /EXTRACT MASK 

/ NEXT INSTRUCTION /SUBR RETURN 



O 



/THE RE:sULT in the FLOATING ACCUMULATION IS ROUNDED ACCORDING 
O /TO THE MODE (SINGL.E/iioUBLE PRECISION) O 

/ 



o 

o 



o 
o 



o 
o 
o 
o 
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02323, R 20451P7 R LAC GUARD* 

O 02322 R 745102 A SPAISTL 

02323 R 602334 R JMP %FIR,A /GUARD BIT SET FOR DP 



o / 

/ROUND-^OFF CAUSED NUMBER TO OVERFLOW INTO SIGN BiTi 
/ROTATE %FAC2,%FAC3 RIGHT ONE BIT AND INCREMENT EXPONENT, 

o / ■■■ 



lEJECT 



O 

o 

o 
o 



o / 

02310 R 000000 A J'opIRi 

02311 R 140540 R DZM OVRFLR 
O 02312 R 200527 R LAC OPCOpt 

02313 R 50467PJ R AND (URJFL) 

02314 R 544604 R SAD (CAL)' ^^ 
O 02315 R 602331 R JMP %FtREX O 

02316 R 504620 R AND (UR) 

02317 R 544620 R SAD (UR) ^^ 
O 02320 R 602331 R JMP %FIREX ^ 

/+1 TO FMA IF"%FAC4 IS NEGATIVE 



O 

o 
o 



02324 R 744000 A CLL 

C 02325 R 200527 R LAC OPCODE 

02326 R 504610 R AND (DP} 

02327 R 544604 R SAD (CAL,) 
O 02330 R 602334 R UMP %PIR»A 

02331 R 442310 R %FIREX IS2 l^FIR, 

02332 R 442310 R ISZ ^^oFIRi .-. 
O 02333 R 622310 R JMP» %FIR. ^ 

02334 R 750010 A %FIR|A GLK 

02335 R 362310 R TAD» %nR, /GET ROUNDOFF BIT, 

O 02336 R 442310 R IS2 • I^^FIR, /POINT TO MASKi ^ 

02337 R 343706 R TAD %FAC3 /ADD TO LOWsORDER RESULT TO PERFORM ROUNDOFF. 

02340 R 522310 R AND» %FIR, /MASK OF INSIGNIFICANT PORTION, 

O 02341 R 043706 R DAC •;SFAC3 /KEEP LOW^ORDER RESULT, ^ 

02342 R 750010 A GLK /GET OVERFLOW BJT, 

02343 R 343705 R TAD %FAC2 /ADD TO HIGH-.DRDER RESULT, 

O 02344 R 043705 R DAC %FAC2 ^ 

02345 R 740100 A SMA " /OVER FLOW INTO SIGN BJT? 

02346 R 602356 R JMP JiFJRA /NO 



O 

O 



02347 R 744020 A RCR 

02350 R 043705 R DAC %FAC2 

O 02351 R 203706 R LAC /.PAC3 U 

02352, R 740020 A RAR 

02353 R 522310 R AND* %FIR, /TRUNCATE 

O 02354 R 043706 R DAC r*FAC3 U 

02355 R 103664 R JMS INCEXP 

02356 R 442310 R %FJRA IS2 /»FIR, /POINT TO RETURN ADDRESS 

O 02357 R 622310 R JMP« %FIR, /EXIT U 



O 
O 
O 
C 



o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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FP1ST2 SRC 



02360 
02361 
02362 
02363 
02364 
02365 
02366 
02367 
02370 
02371 
02372 
02373 
02374 
02375 
02376 

02377 

02400 
02401 
02402 
02403 
02404 
02405 
02406 
02407 
02410 
02411 
024X2 
02413 
02414 
02415 
02416 
02417 
02420 
02421 
02422 



R 000 
R 203 
R 504 
R 043 
R 203 
R 504 
R 043 
R 203 
R 243 
R 504 
R 043 
R 203 
R 504 
R 043 
R 622 

R 000 
R 203 
R 543 
R 740 
R 741 
R 602 
R 203 
R 543 
R 740 
R 602 
R 602 
R 442 
R 622 
143 
143 
143 
R 143 
R 144 
R 144 
R 622 



000 

705 
626 
717 
705 
660 
705 

7ii 

717 

626 
721 
711 
660 
711 
360 



R 
A 



000 A 

705 R 

706 R 
200 A 
000 A 
414 R 
711 R 
712 
200 
412 R 
414 R 
377 R 
^77 R 

704 R 

705 R 
70 6 R 
7i&7 R 
557 R 
565 R 
3/7 R 



SUBTITl,E FPOINT^NON 

/SIGN CONTROL (STRIP S|GNS) (%FS,) 

/CALLING SEQUENCE? 

/ JMS ~ %rs, /CAi^L 

/ NEXT INSTRUCTION /RETURN 

/ 

/THE SIGN BIT OF THE FLOATING ACC IS STORED IN BIT OF 

/STORAGE WORD %sJ4^ THE SIGN TBIT OF THE HELD ACC IS 

/EXCLUSIVE OR'ED WITH IT AND THAT VALUE IS STORED IN BIT OF 

/%FSIGN, RETURN IS MADE WJTh BJT OF BqTH THE 

/HELD ACC AND THE FLOATING ACC SET TO HERO, 

/ 
/ 

%FS, 



OF FLOATING 
THE SIGN 



ACCUMULATOR 



/CHECK 
CAC0 





LAC r»FAC2 /SIGN WORD 

AND (400000 /KGEP ONLY 

DAC %4^ " /STORE IT 

LAC %FAC2 /GET SIGN 

AND {177777 /WORD AGAIN AND KEEP 

DAC %FAC2 /ONLY THE ABSOLUTE VALUE 

LAC %HAC2 /SIGN WORD OF HELD ACCUMULATOR 

XOR ?iJ4 /LIKE SIGNS = 0, UNLIKE SIGN = 1 

AND (400000 /KEEP ONLY THE SIGN AND 

DAC %FSIGN /SAVE IT 

LAC %HAC2' /GET THE SIGN WqRD, 

AND (377777 /OF THE HEALD ACC AND, 

DAC ?«HAC2 /STRIP OFF THE SIGN, 

JMPtt ^.FS, /EXIT 
THE FLOATING AC'S TO EQUAL ZERO 


%FAC2 

%FAC3 



CAC0EX 



LAC 

SAD 

SZA 

SKP 

gMP 

LAC 

SAD 

SHA 

JMP 

vJMP 

ISZ 

JMP* 

D2M 

OHM 

DZM 

OHM 

DZM 

OZM 



CAC0EX+2 

%HAC2 

%HAC3 

CAC0EX 

.,*?■■■ "■ 
CAC0 

CAC0 

%FAC| 

%FAC2 

%FAC3 

%FAC4 

GUARD 

%FAC4A 



^MP* CAC0 



/---- 
/ 

/SWITCH THE FLOATING POINT ACCUMULATOR 
/AND THE HELD ACCUMULATOR, 
/CALLING SEQUENCE; 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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p-pi^Tii SRQ 



02423 R 000000 A 

02424 R 203704 R 

02425 R 042360 R 

02426 R 203710 R 

02427 R 043704 R 
02430 R 202360 R 
02431. R 043710 R 

02432 R 203705 R 

02433 R 042360 R 

02434 R 203711 R 

02435 R 043705 R 

02436 R 202360 R 

02437 R 043711, R 

02440 R 203706 R 

02441 R 042360 R 

02442 R 203712 R 

02443 R 043706 R 

02444 R 202360 R 

02445 R 043712 R 

02446 R 622423 R 



SUBTITU FPQINT^NON 



JMS J4SWICH /SUBR CAUL 
NEXT INSTRUCTION /RETURN 

THE ACCUHULATOR AND LINK ARE CLOBBERED BY 

THIS SUBROUTINE, TEMPORARY STORAGE WORD %U5 IS Al,SO 

CLOBBERED, 



/EXPONENTS, 

/USE TEMPORARILY FREE 

/STORAGE FDR 

/WQRD MANIPUUATION 

/HIGH-ORDER MANTISSAE, 



/ 
/ 
f 
/ 
/ 
/ 
/ 
%SWICH 








LAC 


%FAC1 


DAC 


%FS, 


t,AC 


ySHACl 


DAC 


"^FACl 


LAC 


%FS, 


DAC 


%HAC1 


LAC 


%FAC2 


DAC 


%PS, 


LAC 


7.HAC2 


DAC 


%FAC2 


LAC 


%FS, 


DAC 


%HAC2 


LAC 


%FAC3 


DAC 


%FS, 


LAC 


%HAC3 


DAC 


%FAC3 


LAC 


/.FS, 


DAC 


%\\kZ'i 


JMP« 


%SWICH 



/LPW-ORDER MANTJSSAE 











/ 










/ 










/ 










/ 










/ 










/ 










/ 










/ 










/ 










/ 










/ 


02447 


R 


000000 


A 


% 


02450 


R 


143713 


R 




02451 


R 


143707 


R 




02452 


R 


144571 


R 




02453 


R 


144557 


R 




02454 


R 


144564 


R 




02455 


R 


203705 


R 




02456 


R 


504626 


R 




02457 


R 


044570 


R 




02460 


R 


203711 


R 




02461 


R 


504626 


R 




02462 


R 


044566 


R 




02463 


R 


102360 


R 





GENERAL FLOATING ADD 
CALLING sequence; 

JMS " %FA, 

32/42 

next instruct: 



/call(augend infloat ACC, 

/MAXIMUM SHIFT (26 
ON /SUBR RETURN 



ADDEN 



IN 
34 



HELD ACC) 
D.P,) 



FA, 








OZM 


%HAC4 


DZM 


%FAC4 


OZM 


%MQ# 


DHM 


GUARD 


DZM 


SWITCH# 


LAC 


%FAC2 


AND 


(400000) 


DAC 


%J4%# 


LAC 


%HAC2 


AND 


(400000) 


DAC 


%F%# 


JMS 


%FS, 



/SJGN OF FMB 

/SIGN OF FMA 
/STRIP SIGNS 



■» THE COMPLIMENT 
AND GET ABSOLUTE 



OF ORIGINAL XFAC IF FUNCTION IS NOT ADD 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 

o 
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02525 R 602!?32 R JHP i+5 

02526 R 203710 R LAC %HAgi 



02544 R 203720 R LAC %g5 



o 
o 



O /IP FMB = ^ EXIT - AND KEEP ORIGINAL FMA,,,+a. TO SWITCH O 

/IF FMA=0 = EXIT AND FMB TO FHA'S 

02464 R 2S37W5 R LAC %FAC2 " /FMB (HIGH) _ 

O 02465 R 543706 R SAD %FAC3 /FMB (LOW) O 

02466 R 7402^J0 A SZA 

02467 R 60251.^0 R JMP ,+11 _ 
O 02470 R 203710 R LAC %HAC1 O 

02471 R 043704 R DAC %FACi 

02472 R 203711 R LAC %HAC2 /FMA ^ 
O 02473 R 043705 R DAC %FAC2 /TO FMA (HIGH) O 

02474 R 203712 R LAC %HAC3 /FMA 

02475 R 043706 R DAC %FAC3 /TO NEW FMA (LOW) ^ 
O 02476 R 444564 R ISZ SWITCH O 

02477 R 603017 R JMP %FAEX /FMB = 

/FMB NOT = ~ -, 

O 02500 R 203711 R LAC %HAC2 /FMA O 

02501 R 543712 R SAO %HAC3 

02502 R 7402E10 A SZA 

O 02503 R 741000 A SKP ^ 

02504 R 603017 R JMP %FAEX /FMA = 

02505 R 203704 R %FA,T LAC ~ >-FACl /DETERMINE EXPONENT DIFFERENCE 

O 02506 R 740001 A CMA / ( ADDEND^AUGENDr^l ) O 

02507 R 343710 R TAD /aHACl 

02510 R 043720 R DAC ^»J5 

O 02511 R 741100 A SPA /IF MINUS 00 NOT SWITCH 7oFACl GREATER THAN %HAC1 (FMB > FMA) U 

02512 R 602616 R JMP %FAT|B /,.,D0 NOT SWITCH 

02513 R 102423 R JMS /iSWICH 

O 02514 R 444564 R ISZ SWITCH /HARDWARE FMA > FMB BEFORE ALIGNMENT O 

02515 R 6025^5 R JMP %FA,T /ALSO 

02516 R 203704 R %FAT,B LAC %FAC1 _ 
O 02517 R 243710 R XOR %HAC1 O 

02520 R 504626 R AND (400000) 

02521 R 741200 A SNA " _ 
O 02522 R 602541 R JMP %FAA /EXPONENT SIGNS SIMILAR O 

/EXPONENT SIGNS UNLIKE 

02523 R 203704 R LAC %FAC1 

O 02524 R 741100 A SPA 



O 
O 

o 



O 02527 R 740001 A CMA 

02530 R 343704 R TAD %FAC1 

02531 R 602564 R JHP ,*3 
O 02532 R 740001 A CMA 

02533 R 343710 R TAD %HAC1 

02534 R 7411fc)l A SPAICMA 

O 02535 R 603000 R JMP %FAE,X /OUT OF BOUNDS O 

02536 R 344704 R TAD (43) 

02537 R 741100 A SPA 

O 02540 R 603000 R JMP %FAE,X /OUT OF BOUNDS O 

02541 R 443720 R %FAA ISZ %J5 

02542 R 741000 A SKP 
O 02543 R 602600 R UHP %FAB,B /EPA=EPB O 



O 
O 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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PPltJT2 SRC 



SUBTITI^E FPOINT-NON 



02545 R 362447 R 

02546 R 751100 A 

02547 R 603£3W0 R 



02550 
02551 
02552 
02553 
02554 
02555 
02556 
02557 
02560 
02561 
02562 



02563 
02564 
02565 
02566 
02567 
02570 
02571 
02572 
02573 
02574 
02575 
02576 
02577 

02600 
02601 
02602 
02603 
02604 
02605 
02606 
02607 
02610 
02611 
02612 
02613 
02614 
02615 
02616 
02617 
02620 
02621 
02622 
02623 



R 20 
R 74 
R 04 
R 20 
R 74 
R 04 
R 20 
R^ 74 
R 04 
R 44 
R 60 



3711 

4020 
3711 
3712 
0020 
3712 
3713 
0020 
3713 
3720 
2550 



R 203 

R 744 

R 602 

R 200 

R 504 

R 544 

R 602 

R 203 

R 344 

R 043 

R 750 

R 343 

R 043 

R 203 

R 044 

R 143 

R 143 

R 204 

R 144 

R 741 

R 602 

R 203 

R 543 

R 741 

R 602 

R 203 

R 744 

R 343 

R 602 

R 203 

R 740 

R 343 

R 602 



713 R 

100 A 

600 R 

527 R 

620 R 

620 R 

600 R 

712 R 

643 R 

712 R 
010 A 
711 R 
711 R 

713 R 

571 R 

713 R 

1^1 R 

564 R 
564 
200 

624 R 

711 R 

705 R 



R 
A 



000 
620 
712 R 
001 A 
706 
644 
711 R 
001 A 
705 R 
637 R 



A 
R 



R 
R 



/SHI%FT 
/ 

%FAB 



TAD 
SPA 
JMP 

THE 



%Rl, 



lAC 

RCR 
DAC 
UAC 
RAR 
DAC 
UAC 
RAR 
DAC 

ISZ 

gnP 

/IF ROIINDIN 
/ 

LAC 

SNA 

JMP 
lAC 
AND 
SAO 
JMP 
UAC 
TAD 
DAC 
GLK 
TAD 
DAC 
ONI, 
LAC 
DAC 
OZM 
D2M 
LAC 
62M 
SNA 
JMP 
LAC 
SAD 
SKP 
JMP 
LAC 
CMA 
TAD 
JMP 
LAC 
CMA 
TAD 
JMP 



» %FA, 
!CLA 
%FAfc:,X /EXPONENTS GREATER THAN MAX ALLOWED 32/42 

ADDENU RIGHT PElTA TIMES, 

%HAC2 

%HAC2 
%HAC3 

%HAC3 
%HAC4' 

%HAC4 

7oJ5 /FINISHED SHIFTING? 
%FAB /NO,, 'CYCLE AGAJN 
G IS REQUESTED - AND BIT OF %HAC4 IS SET r, ROUND 



%HAC.4 
% w L U 
%FAB,8 
OPCODE 
CUR) 
CUR) 
%FAB,B 
%HAC3' 

ci> ■ 

%HAC3 



/DP NOT ROUND 



/DO NOT ROUND 



/SWITCH 
%FAB,B 



/START A NEW SWITCH MONITOR 



%HAC2 
7H AC2 
Y 'accumulators NOT EXP TO GET %HAC2 GREATER 
7H AC4 

%MQ " /SAVE FOR DEBUGGING 
%HAC4 
%FAC4 

SWITCH 
SWITCH 



%FABB1 
%HAC2 ■ 
%FAC2 

,*5 
%HAC3 

scLl ■ 

%FAC3 
%FABB3 
%HAC2 ■ 

%FAC2 
%FABB2 



/FMB 
/FMA 



O 
O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 








o 
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FP15T2 


o 


02624 


R 


203705 R 




02625 


R 


543711 R 




02626 


R 


741000 A 


o 


02627 


R 


602634 R 




026^0 


R 


203706 R 




02631 


R 


744001 A 


o 


02632 


R 


343712 R 




02633 


R 


602644 R 




02634 


R 


203705 R 


o 


02635 


R 


7*^0001 A 




02636 


R 


3437U R 


o 


02637 


R 


740100 A 




02640 


R 


602647 R 




02641 


R 


204705 R 


o 


02642 


R 


042423 R 




02643 


R 


602432 R 




02644 


R 


74l'4-00 A 


o 


02645 


R 


602647 R 




02646 


R 


602641 R 


o 


02647 


R 


444564 R 




02650 


R 


203711 R 




02651 


R 


744020 A 


o 


02652 


R 


043711 R 




02653 


R 


203712 R 




02654 


R 


740020 A 


o 


02655 


R 


043/12 R 




02656 


R 


203713 R 




02657 


R 


740020 A 


o 


02660 


R 


043713 R 


o 










02661 


R 


200527 R 


o 


02662 


R 


504575 R 




02663 


R 


544576 R 




02664 


R 


602774 R 


o 










02665 


R 


203721 R 


o 


02666 


R 


740100 A 




02667 


R 


602705 R 




02670 


R 


203713 R 


o 


02671 


R 


102013 R 




02672 


R 


043713 R 




02673 


R 


203712 R 


o 


02674 


R 


740401 A 




02675 


R 


602700 R 




02676 


R 


744000 A 


o 


02677 


R 


344643 R 




02700 


R 


043712 R 


o 








o 









SRC SUBTITLE FPQiNT-^NON 



DAC %HAC4 

L,AC %HAC3 

CMAISNL 

JHP 1+3 

Cl-L 

TAO (1) 

DAC %HAC3 /NEGATED LOWt^ORDER ADDEN 



O 
O 

o 
o 



%rABBl L,AC %FAC2 

SAD %RAC2 

SKP 

JMP ,+5 

L,AC %FAC3 /FMB 

CMAICLL, 

TAD %HAC3 /FMA O 

JMP %FAB83 

L,AC %FAC2' /FMB ^ 

CMA * - O 

TAD %HAq2 /FMA 
/SWITCH ONUY /.FAC2, AND 3 WiTH CORRESPONDING %HaC2i AND 3 
%FABB2 SMA O 

JMP %FAB,C-.l 

LAC (%FAB";C) ^ 

DAC %SWICH /FMA<FMB O 

JMP %SwiCH*7 
%FABB3 SZL ^ 

JMP %FAB,Cr7l O 

JMP %FABB2+2 
/NOW SHIFT AOQENDRIGHT ONE MORE TIHE 

JSZ SWITCH /FMB<FMA O 

%FAB,C UAC %HAC2 

RCR 

DAC %HAC2 O 

l,AC %HAC3 

RAR ' 

DAC %HAC3 O 

UAC %HAC4 

RAR ^ 

DAC %HAC4 O 

/THE EXPONENTS ARE NOW EQUAUi IF THE SIGNS ARE UNLIKE 

/NEGATE THE ADDEND BEFORE ADDING, AFTER ADDING IF THE ^ 

/SUM IS NEGATIVE THE ADDEND MUST BE LARGER, THE SIGN OF O 

/THE SUM WOULD THEN BE THAT OF THE ADDEND 

l,AC OPCQPE 

AND (0P6TQ9) O 

SAD (ADD) ■ 

JMP %FANGl 
/FSIGN = 400000 /LIKE SIGNS O 

/FSIGN = 000000 /UNLIKE SIGNS 

LAC" " %FSIGN 

SMA ' /NEGATE ADDEND O 

JMP /'FAC /SUBTRACT UNLIKE ,,, REALLY ADD 
%PFAC LAC ?',HAC4 /SUBTRACT LIKE 

JMS %ANEG, O 



O 
O 
O 

o 



o 
o 



o 
o 



PAGE 45 FPli'TZ SRC SUBTITLE FPOiNTrNUN 



/BEGIN THE ADDITION, 



o 

o 



O 0H701 R 203711 R LAC /.HAC2 /HlGH^ORDER ADDEND O 

02702 R 741401 A CMAIS^U /IF OVER FLOW FROM 

02703 R 344643 R TAD (1 /NEGATING LOW^ORDER ADDEND ^ 
O 02704 R 0437U R DAC %HAC2 /END OF NEGATION O 

/WHEN COMPUTING THE EXPONENT THE ONE'S COMPLEMENT WAS USED 

/lOSTEAD OF THE TWO ' S'COMPLEMENT , THIS WAS TO FORCE A RIGHT SHIFT _ 

O /OF THE AUGEND SO THAT OVERFLOW WOULD NOT INTERFERE WITH SUM O 

/SIGN DETERMINATION 
/ 

O / 

02705 R 2037ai3 R %FAC LAC %FAC2 /HlGH-'ORDER AUGEND 

02706 R 744fe)20 A RCR /l-'BIT RIGHT 
O 02707 R 0437!i5:3 R DAC %FAC2 

02710 R 203706 R LAC %FAC3 

02711 R 740020 A RAR /LOW^ORDER AUGEND 
O 02712 R 043706 R DAC %FAC3 

02713 R 203707 R LAC %FAC4 

02714 R 740020 A RAR .-. 
O 02715 R 744000 A CLL /RIGHTMOST BIT QF %FAC4 DROPS OFF, (WHO CARES BABY) U 



O 
O 
O 



O 
O 



O / 

02716 R 343713 R TAD %HAC4 

02717 R 043707 R DAC %FAC4 
O 02720 R 750010 A GLK 

02721 R 343706 R TAD %FAC3 

02722 R 343712 R TAD ' J'aHACS ^ 
O 02723 R 043706 R DAC ^'^FACS /L0W«0R0ER SUM ^ 

J2724 R 750^10 A GLK /IF OVERFLOW FROM ADDITION 



O 



02725 R 343705 R TAD r«FAC2 

O 02726 R 343712, R TAD %HAC2 

02727 R 043705 R DAC %FAC2 /HIGH«;0RDER SUM 

O /IF SUM IS NEGATIVE, COMPLEMENT THE ANSWER AND THE SIGN OF THE SUM O 

02730 R 203705 R LAC %FAC2 



02731 R 740100 A SMA 

O 02732 R 6027^^0 R JMP %rAD 

02733 R 203707 R LAC %FAC4 

02734 R 1020i3 R JMS 7,ANEG, 
O 02735 R 043707 R DAC %FAC;4 

02736 R 203706 R LAC ^»FAC3 

02737 R 740401 A CMAlSNL 
O 02740 R 602743 R JMP ,+3 

02741 R 744003 A CLL 

02742 R 344643 R TAD (1) 
O 02743 R 043706 R DAC ' %FAC3 

02744 R 203705 R LAC '/oFAC2 

02745 R 741401 A CMAJSZL 
O 02746 R 344643 R TAD (1 

02747 R 043705 R DAC %FAC2 

O /A FORCED SHIFT OF %FAB AND %FAC WAS PREVIOUSLY INITIATED O 

/SHIFT BACK IF Bit 1 OF %FAC2 IS = 



O 

o 
o 
o 
o 



o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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027S0 
027l:il 
02752 
027b)3 
02754 
02755 
02756 
02757 

02760 

02763, 

02762 
02763 
02764 
02765 
02766 
02767 
02770 
02 773, 
02772 
02773 



FP15T2 SRC 



SUBTITI.E FPOINT^NqN 



R 20 
R 50 
R 74 
R 60 
R 54 
R 60 
R 20 
R 04 
R 10 
R 60 



3705 R 
4/06 R 
3,200 A 
2762 R 
4 707 R 
2762 R 
3707 R 
4557 R 
3664 R 
3017 R 



R 203707 R 

R 744010 A 

R 043707 R 

R 203/06 R 

R 7400X0 A 

R 043706 R 

R 203705 R 

R 740010 A 

R 043/05 R 

R 603017 R 



02774 R 203721 R 

02775 R 741100 A 

02776 R 602670 R 

02777 R 602705 R 



03000 R 

03001 R 

03002 R 

03003 R 

03004 R 

03005 R 

03006 R 

03007 R 

03010 R 

03011 R 



203704 R 
243710 R 
504626 R 
741200 A 
603017 R 
203704 R 
740100 A 
6030,12 R 
102423 R 
444564 R 



03012 
03013 
03014 
03015 
03016 
03017 
03020 
03021 
03022 



203705 

543706 
740200 
741000 
603010 
200527 
504575 
544576 
603042 



/IF BIT 
/AND SE 
%FAD 



/SHIFT 
%FAD,D 



/IF FS| 
/IF FSI 
%FANG1 



/EXPONE 
/EXPONE 
%FAE,X 



%FE 

/FAC RE 
/IF FAC 
/SO THE 
%FAEXX 



%FAEX 



1 = 1 I 
T GUA 

!,AC 

AND 
SNA 
vIMP 
SAD 
JHP 
LAG 
DAO 
JMS 
JMP 
BACK 
lAC 
RCL, 
DAC 
lAC 
RAL 
DACi 
UAC 
RA(- 
DAC 

gnp 

GN = 

GN = 

UAC 

SPA 

sJMP 

vJMP 

NT DI 

NT RE 

LAC 

XQR 
AND 

SNA 

gMP 

UAC 
SMA 
JMP 
JMS 
ISZ 
GISTE 

2 AND 
REFQR 

lAC 
SAD 
SZA 
SKP 
JMP 
LAC 
AND 
SAD 
JMP 



NCREMENT EXPONENT BECAUSE OF THAT FORCED SHIFT 
RD BIT FOR ROUNDING 

'/.FAC2" 
(APD15) 



%FAD,D 
(JMS)" 
%FAO,D 
%FAC4 
GUARD 
li^CEXP 

%FAEX 
HERE 
%FAG4 

%FAC4 

%FAC3 



/DETERMINE ANSWER SIGN 



/SHIFT BACK 



%FAC3 
%FAC2 

%FAC2 
%FAEX"" 
000000 
400000 
%FSiGN 



/UKE SIGNS 
/UNt,IKE SIGNS 



REALUV SUBTRACT 



%PFAC /ADD UNLIKE 

%FAC /ADD UIKE 

FFERENCE TO GREAT TO COMPLETE OPERATION 

AVULATION 

%FAC1' 

%HAci 

(400000) 



%FAEX 
%FAC1 



/EXP SIGNS EQUAL 



/SWITCH TO GET %FaC LARGER (MORE POSITIVE) 



%FAEXX 
%SWICH 
SWITCH 
RS MORE + 

FAC3 5 0, HAC REGISTERS MORE * 
E "'SWITCH REGISTERS AND KEEP SIGN 
%FAC2' 
%FAC3 



%FE 

OPCODE 
(0P6T09) 
(ADD) ' 
ADSIGN 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
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03041 R 6030t>6 R JMP %FAEXT 

03042 R 2037iii R ADSJGN L.AC SiFSjCN 



O ' " / 

/WHEN SWITCH = 0« HARDWARE FMB > FMA .,, THEREFORE COMP ASJGN 
.EJECT 
O 

O 

o 
o 
o 
o 
o 
o 



o 

o 
o 



O 03023 R 203/21 R t,AC %FSIGN 

03024 R 74l2k30 A SNA /SKP TO SUB UIKE SIGNS 

03025 R 60303S) R JMP GOTOGO /SUB UNLIKE SIGNS 

O ' /^oFSfGN - 400000 TO SUBTRACT LIKE SIGNS O 

03026 R 204t>/0 R i,AC %04% 

03027 R 043721 R DAC %FSIGN /BECOMES "A" SIGN 

O 03030 R 204i?64 R l(\C SWITCH O 

03031 R 504643 R AND (1) 

03032 R 741200 A SNA 

O ' /CQMP ASIGN U 

03033 R 102017 R JMS %SNEG, 

03034 R 6030t36 R JMP JSFAE^^T 

O 03035 R 204570 R GOTOQO LAC %J4% O 

03036 R 7501Sil0 A SMAICLA 

03037 R 204626 R LAC (400000) ,_ 
O 03040 R 043/21 R DAC %FSiGN /BECOMES "A" SIGN U 



U 



O 03043 R 741200 A SNA 

03044 R 603054 R JMP GOGQGO /AOO UIKE SIGNS 

/ADD UNLIKE SIGNS %FSIGN= 400000 ^ 

O 03045 R 204566 R L,AC %F% /SIGN OF FMA ^ 

03046 R 043721 R DAC %FSIGN /BECOMES "A" SIGN 

03047 R 204564 R UAC SWITCH 
O 03050 R 504643 R AND CD 

03051 R 741200 A SNA 

03052 R 10201/ R JMS %SNEG , 
O 03053 R 603056 R JMP %FAEXT 

03054 R 204570 R GQGOGO LAC %J4% 

03055 R 043721 R DAC %FSIGN ^ 
O 03056 R 102172 R %FAEXT JMS %FNORt ^ 

03057 R 442447 R ISH %FA, /BUMP FOR EXIT 

03060 R 622447 R JMP» 7oFA, /EXJT 



O 
O 



O 
O 
O 
O 
O 
O 
O 

o 
o 



o 
o 
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f 



03073, R 504610 R AND (OP) 

03072 R 544610 R SAD (OP) 

O 03073 R 603U2 R JMP %fWl 

03074 R 203704 R LAC %FAC1 

03075 R 5046^5 R AND (777) 
O 03076 R 746010 A CULIRfC 

03077 R 742010 A RTL ' 

03100 R 742010 A RTl 

O 03101 R 7420X0 A RTU 

03102 R 740010 A RAL 

03103 R 0405^0 R DAC TEMP 
O 03104 R 200513 R LAC %XFAC1 

03105 R 240516 R XOR %XHAC1 

03106 R 504577 R AND (400? " 
O 03107 R 740200 A S2A 

03110 R 603132 R JMP %FMl /UNLIKE SIGNS 

03111 R 603120 R JHP %FM2A 
O 03112 R 203704 R %FM2 LAC %FAC1 

03113 R 040530 R DAC TEMP 

03114 R 200513 R LAC %XFAC1 
O 03115 R 240516 R XQR %XHACi 

03116 R 741100 A SPA 

03117 R 603132 R JMP %FM1 /UNLIKE SI^NS 
O 03120 R 203710 R %FM2A LAC %HAC1 

03121 R 741100 A SPA 

03122 R 603127 R JMP %FM3 /LIKE SIGNS WERE NEGATIVE 
O 03123 R 200^30 R LAC TEMP 

03124 R 741100 A SPA 

03125 R 440536 R ISH OVRFLl 
O 03126 R 603132 R JMP ,+4 

03127 R 200530 R %FM3 LAC TEMP 

O 

O 



o 
o 
o 
o 
o 



/GENERAL FLOATING MUUIPLY (%FM,) NON«EaE 
O /CALLING SEQUENCE? 

/ JMS Wy\, /CALL 

/ NEXT INSTRUCTION /RETURN 

o / ■ ■■ 

/ 

/THE ARGUMENTS ARE IN THE FLOATING (%FACl33) AND 
O /HELD ACCUMULATORS (%HAC1«3), THE FLOATING ACCUMULATOR IS O 

/THE MULTIPLICAND AND THE HELD ACCUMULATOR THE MULTIPLIER, 
^ /IF EITHER ARE 2ER0| RETURN IS MADE WITH IN THE FLOATING 

O /ACC, THE EXPONENt IS'COMPUTED FIRST, O 

/ 
03061, R 000000 A %FM, /ENTRY EXIT 

O 03062 R 744000 A CLL O 

03063 R 143/07 R DHM %FAC4 

03064 R 144&57 R DHM GUARD 

O 03065 R 203704 R LAC " %FACl /EXPONENT OF MULTIPLICAND O 

03066 R 343710 R TAD %HAC1 /ADD EXPONENT OF MULTIPLIER 

03067 R 043704 R DAC %FACl /SAVE EXPONENT OF PRODUCT, 
O "^i^l^ R 200S27 R LAC OPCODE 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



(J 
o 



o 

o 
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O 03130 R 740100 A SMA 

03131 R 440^37 R IS2 UNDFi,! 



o 

o 

o 



o 



/(+EPA)+(+EPA) STAYED POSITIVE 

O 03132 R 102360 R %pMl JMS " %FS, /GET SIGN AND ABS0l,UTl2E, O 

03133 R 102377 R JMS CAG0 ~ . b * • k^ 

03134 R 623061 R gMP* ?JFM, 

O " ■ / 

/CHECK MUIJIPICAND FOR 2ER0AND SAVE IN WORK AREA, 

O 03135 R 203706 R |,AC %FAC3 /UOW^ORDER MULTIPLICAND O 

03136 R 143706 R DHM %FAC3 /CLEAR FOR SHIFTING IN PRODUCT 

03137 R 043716 R DAC %g3 /SAVE IT, 
O 03140 R 203705 R t,AC %FAC2 /HIGHr-ORDER MULTIPLICAND 

03141 R 14370S R DZM 7,FAC2 /CLEAR PRODUCT AREA FQR SHIFTING, 

03142 R 043715 R DAC %J2 /NOT 0,,f SAVE IT 
O 03143 R 203715 R LAC %42 

03144 R 543716 R SAD %J3 

03145 R 740200 A SHA 
O 03146 R 741000 A SKP 

03147 R 603225 R JMP %FMC 

03150 R 143714 R DZM ~ %g3, /INITIALIZE CARRY EXTENSIONS 

U 03151 R 143707 R DZM %FAC4 / 

03152 R 144567 R DZM %4ll\#~ 

03153 R 144565 R DZM %FAC4A# 
O ^ - ^ 

/THE MULTIPLICATION IS PERFORMED BY A SERIES OF ADDS 
/THE MULTIPLICAND IS ADDED TO ITSELF AND SHIFTED FOR EVERY 

O /1-BIT OF THE MULTIPLIER, THE ADDITION STOPS WHEN THE O 

/2-WORD MULTIPLIER IS"0, 

/ 

O 03154 R 203715 R %FMA LAC %42 /SHIF THREE O 

03155 R 744020 A RCR /WORD MULTIPLICAND 

03156 R 043715 R DAC %J2 /ONE 

O 03157 R 203716 R t.AC %)z /BIT O 

03160 R 740020 A RAR /RIGHT 

03161 R 043716 R DAC %4^ 

O 03162 R 203714 R l,AC %J1 /3RD WORD EXTENSION OF MULTIPLICAND O 

03163 R 740020 A RAR 

03164 R 043/14 R DAC %,J1 
O 03165 R 204567 R LAC %J1A " ' 

03166 R 740020 A RAR " " 

03167 R 044567 R DAC %J1A /4TH WORD EXTENSION 

O " ■ " / 



o 
o 
o 
o 
o 



o 
^ o 

03170 R 203712 R t,AC %HAC3 /SHIFT TWO WORD MULTIPLIER 

03171 R 744013 A RCL /ONE BIT LEFT 

O 03172 R 043712 R DAC %HAC3 /IF HIGH«0RDER WORD IS ZERO, O 

03173 R 203711 R t^AC %HAC2 /THE MULTIPLIER MIGHT BE ZERO 

03174 R 740010 A RAL / 

O 03^.75 R 0437U R DAC %HAC2 / Q 

03176 R 741200 A SNA ~ /IF MULTIPLIER 0? 

03177 R 603222 R JHP %FMB /MAYBE 

O 03200 R 744100 A SMAICLL " /NO,,, IS MULTIPLIER BIT SET ? O 

03201 R 603154 R JMP /.FMA /NO,,.CyCLE AGAIN 



O 
O 



I J 



o 
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o 










o 












03202 


R 


204565 


R 




03203 


R 


344567 


R 


o 


03204 


R 


044565 


R 




03205 


R 


750010 


A 




03206 


R 


343/07 


R 


o 


03207 


R 


343714 


R 




03210 


R 


043/07 


R 




03211 


R 


7500i0 


A 


o 


032X2 


R 


343706 


R 




03213 


R 


3437i6 


R 




03214 


R 


043706 


R 


o 


03215 


R 


750010 


A 




03216 


R 


343715 


R 




03217 


R 


343705 


R 


o 


03220 


R 


043/05 


R 




03221 


R 


603154 


R 


o 












03222 


R 


203712 


R 


o 


03223 


R 


740200 


A 




03224 


R 


603154 


R 


o 












03225 


R 


203/07 


R 




03226 


R 


044557 


R 


o 


03227 


R 


1021/2 


R 




03230 


R 


623061 


R 


o 










o 










o 










o 











o 



o 



o 
o 

o 



SUBTITLE FPOINT^NpN 

/ 

/ADD THE THREE WURQ (|NCLUOlNG EXTENSION) MULTIPLICAND TO THE 

/BUILDING PRODUCT IN THE FLOATING ACC, 

/ 

LAC %FAC4A 

TAD %U1A 

DAC %FAC4A 

GLK 



o 
o 
o 
o 
o 



TAD /»FAC4 /YES,,, ADD HULTlPLlCAND TO PRODUCT 

TAD %jj, /EXTENSION OF MULTIPLICAND (3RP WORD) O 

DAC %FAC4 /3RD wOrD OF BUILDING PRODUCT 

GLK /ADD OVERFLOW FROM LINK TO 2ND WORD 

TAD %FAC3 /2ND WORD OF BUILDING PRODUCT O 

TAD . ^^3 

DAC %FAC3 

GLK " /ADD OVERFLOW FROM LINK TO FST WORD O 

TAD %U2 /OF PRODUCT 

TAD ?'=FAC2 

DAC %FAC2 O 

JMP %FHA /CYCLE AGAIN 

/AT % FMB THE HIGH^ORUER MULT I PL lER" WQRO 15 HERO, 

/TEST LOW^ORDER WgRo^iF IT IS HERO ALSQi EXIT, O 
/ 

%Fm LAC %HAC3 /I5 MULTIPLIER ? 

S2A /YES O 

4HP %FMA /NO,,, Cycle again 

/EXIT ROUTINE, O 

%FMC LAC %FAC4 /REDUNDANT IN CASE UNNORMALJZED 

DAC GUARD 

JMS " %FNOR, /NORMAL I HE O 

JMPo %FM, /RETURN 

, EJECT 

o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 
o 
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032/4 R 043/liJ R DAC %J2 



O 

o 



o 
o 



O /GENERAL. FLOATING DIVIDE (%F0,) NQNt^EAE O 

/CALLING SEQUENCE? 

O / JMS %FD, /CALL ^ 

/ r34/«44 /NO OF BITS TO GENERATE 

/ 400/l~ /LEAST SIGNIFICANT QUOTIENT BIT _ 

O / NEXT INSTRUCTION /RETURN HERE O 

/ 

/UPON ENTRY TO THE SUBROUTINE THE ARGUMENTS WERE STORED IN THE 
O /FLOATING POINT REGISTER (%FACl"3>f AND THE HELD ACCUMULATOR (%HAClr,3), O 

/RETURN !S MADE TO THE CALLING PROGRAM WITH THE QUOTIENT IN THE 

/FLOATING POINT REGISTER, THE DIVISOR IS IN THE FLOATION AC, -, 

O / ' " o 

03231 R 000000 A °/oFD, /ENTRY"EXIT 

03232 R 2232^1 R LAC« 7oFD, /GET NO OF 9ITS (MUST BE NEGATIVE) 

O 03233 R 043714 R DAG %J1 /SAVE NQ OF BITS AS COUNTER, ^ 

03234 R 443231 R JSZ %FD, 

03235 R 102^560 R JMS %PS, /SIGN CONTROL ^ 
O ' /ABNORMAL DIVISION IF FMB = ^ 

03236 R ZBZVm R LAC 7oFAC2 /FMB HIGH 

03237 R 543/06 R SAD %FAC3 /FMB LOW 
O 03240 R 740200 A SZA 

03241 R 7410ti)0 A 3KP 

03242 R 603563 R ^MP %FDC /ABNORMAL DIVISION 
O 03243 R 200527 R LAC OPCODE 

03244 R 504603 R AND (FL) 

03245 R 544604 R SAD (CAL) ^ 
O 03246 R 603405 R jMP IDIVIPE /INTEGER DIVISION U 

/ABNORMAL DIVISION IF FMB IS UNNORMALIZED 
03247 R 200527 R LAC OPCODE 

O 03250 R 504575 R AND (6P6T09) U 

03251 R 5446^7 R SAO (RDIV) 

03252 R 603257 R JMP ,*5 /EXCEPT FOR REVERSE DIVISION _. 
O 03253 R 200517 R LAC %XHAC2 /FMB HIGH ^ 

03254 R 744010 A RCL 

03255 R 740100 A SMA ^ 
O 03256 R 603275 R JMP %FO0 /CALCULATE EXPONENT BEFORE FLAGGING ABNORMAL DIVISION O 

/NO ABNORMAL DIVISION |F FMA = 

03257 R 203711 R LAC %HAC2 

O 03260 R 543712 R SAD %HAC3 U 

03261 R 7402^0 A SHA 

03262 R 741000 A SKP ^ 
O 03263 R 603445 R JMP lOEXIT /THE QUOTENT WILL =0 O 

/NEGATE THE DIVISOR IN THE FLOATING ACCUMULATOR, 

03264 R 203706 R LAC ' %FAC3' /L0W«0RDER DIVISION 

O 03265 R 143706 R DHM 7,FAC3 /CLEAR FOR QUOTIENT O 

03266 R 1020i3 R JMS %ANEG, /NEGATE AND 

03267 R 043716 R DAC %J3 /SAVE LOWbORDER DIVISION 

O 03270 R 2037^5 R LAC r.FAC2 /HlGHsORDER DIVISION O 

03271 R 741401 A CMAIS2L " /SKIP IF LINK ON PROM NEGATING LOW'^ORDER 

03272 R 344643 R TAD (1 /DIVISOR 

O 03273 R 1437W5 R DHM %FAC2 /CLEAR FOR QUOTIENT O 



O 

o 



o 
o 



o 
o 
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0^305 R 203704 R lAC %FAC|. 

033k36 R 5046&£> R AND Ull) 



O 03320 R 741200 A SNA 



03340 R 200t>30 R 7»FD3 UAC TEMP 

O 03341 R 740100 A SMA 



O 
O 



O /THE EXPONENT OF THE PIVIQEND MINUS THE EXPONENT OF THE O 

/DIVISOR EQUALS THE EXPONENT QUOTIENT, 

03275 R 2037^4 R %FD0 UAC %FAC1 /DIVISOR EXPONENT 

O 03276 R 102^13 R JMS %ANEQ, ^ 

03277 R 343710 R TAD /oHACl /DIVIDEND EXPONENT 

03300 R 043704 R DAC %FAC3, /EXPONENT BEFORE NORMALIZATION 

O 03301 R 200527 R UAC OPCODE 

03302 R 504610 R AND (DP) 

03303 R 544610 R SAD (DP) _ 
O 03304 R 603323 R gMP %FD2 /DOUBLE PRECISION U 



O 



O 
O 



O 03307 R 744010 A CLL?RAL 

03310 R 742010 A RTL 

03311 R 742010 A RTL 
O 03312: R 742^110 A RTL 

03313 R 742010 A RTL 

03314 R 040530 R DAC TEMP /TEMP FOR QUOTEnT EXPONENT ^ 
O 03315 R 200513 R LAC %XFaC1 /EPA ^ 

03316 R 240516 R XOR %XHACi /EPB 

03317 R 504577 R AND (400) ' 



o 

53321 R 603343 R ^MP %FD1 /EXPONENTS WERE S LIKE SIGNS 

03322 R 603331 R JMP %FD4 

O 03323 R 203704 R 7oFD2 LAC %FAC;3, /,,, UNLIKE SIGNS O 

03324 R 040530 R DAC TEMP /TEMP FOR QUOTENT EXPONENT 

03325 R 200513 R LAC %XFAC1 

O 03326 R 240516 R XQR %XHAC1 O 

03327 R 740100 A SMA 

03330 R 603343 R JMP 7oFDl _ 
O "" /EXPONENTS WERE OF UNLIKE SIGNS O 

03331 R 203710 R %FD4 LAC %HAC1, ' /EPA 

03332 R 741100 A SPA _^ 
O 03333 R 603340 R JMP %FD3 /£PA WAS NEGATIVE O 

03334 R 2^0530 R LAC TEMP 

03335 R 741100 A SPA ^ 
O 03336 R 440536 R IS? OVRFU /FROM SUBTRACTION OF EXPONENTS O 

03337 R 603343 R JMP ,*4 



O 



03342 R 440537 R ISZ UNDFLl /FROM SUBTRACTION OF EXPONENTS 

/ABNORMAL DIVISION NOW IF FMB IS UNNQRMALIHED _. 

O 03343 R 200527 R %FD1 LAC OPCODE O 

03344 R 504575 R AND (0P6T09) 

03345 R 544637 R SAD (RDIV)" ^ 
O 03346 R 603353 R JMP ,+5 /EXCEPT FOR REVERSE DIVISION O 

03347 R 200517 R LAC %XHAC2 /FMB HIGH 

03350 R 744010 A RCL ^ 

O 03351 R 740100 A SHA . O 

03352 R 603563 R JMP %FDG /ABNORMAL DIVISION 

/NORMALISE MANTISSA BECAUSE HARDWARE NORMALISES IT SONNY 

O /THE PROGRAM WILL NEVER EXPECT A FLOATING ABNORMAL DIVISION ON RD O 

03353 R 203711 R LAC %hAC2 /FMA HIGH 



O 

o 



o 


















o 
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o 


03354 


R 


504661 


R 




AMP 


(LAC) 






03355 


R 


740200 


A 




SZA 








03356 


R 


603527 


R 




JMP 


%FDA"2 




o 


03357 


R 


203712 


R 




UAC 


%HAC3' 


/FMA LOW 




03360 


R 


744010 


A 




RCl 








03361 


R 


043712 


R 




DAC 


%HAC3 




o 


03362 


R 


203711 


R 




lAC 


%HAq2 






03363 


R 


740010 


A 




RAj, 








03364 


R 


043711 


R 




DAC 


%HAG2 




o 


03365 


R 


777777 


A 




LAW 


mi 






03366 


R 


343704 


R 




TAD 


%FAC1 


/QUOTENT 




03367 


R 


043704 


R 




DAC 


%FACi 


/EXPONENT 


o 


03370 


R 


200527 


R 




UAC 


OPCODE 






03371 


R 


504610 


R 




AMD 


(PP) 






03372 


R 


544610 


R 




SAD 


(DP) 




o 


03373 


R 


603401 


R 




viMP 


,*6 






03374 


R 


203704 


R 




lAC 


%FAC1 






03375 


R 


544702 


R 




SAD 


(777377) 




o 


03376 


R 


603403 


R 




vJMP 


i+S' " 






03377 


R 


544703 


R 




SAD 


(377) 






03400 


R 


603403 


R 




JMP 


.*3 




o 


03401 


R 


203704 


R 




LAC 


%FAC1 






03402 


R 


544660 


R 




SAD 


(377777) 






03403 


R 


440541 


R 




ISH 


UNDFLN 




o 


03404 


R 


603343 


R 




JMP 


%FP1 














/INTEGER DIVISION 














/IF DIVIPF-NC 


) < PlyiSQKj 


THE QUOTENT WILL ? 


o 










/(FMA<FMe5 
















/AND IF 


FMB 


? 0, +1 TO 


INTEGER DIVISION BY HERO 




03405 


R 


203711 


R 


IDIVIOE 


UAC 


%HACi? 


/FMA 


o 


03406 


R 


543705 


R 




SAD 


%FAc:^ 


/FMB 




03407 


R 


741000 


A 




SKP 




/FMA ? FMB HIGH CHECK LOW 




03410 


R 


603440 


R 




gMP 


IDV2 




o 


03411 


R 


203712 


R 




lAC 


%HAC3 


/FMA 




03412 


R 


745100 


A 




SPA 


CLL 






03413 


R 


603422 


R 




JMP 


i*r 




o 


03414 


R 


740031 


A 




TCA 








03415 


R 


343706 


R 




TAD 


%FAC3 


/FMB 




03416 


R 


741400 


A 




s?x 






o 


03417 


R 


741200 


A 




SNA 








03420 


R 


603454 


R 




JMP 


IDIFR 


/FMA > FMB 




03421 


R 


603445 


R 




.iMP 


IPEXIT 


/FMA < FMB 


o 


03422 


R 


203706 


R 




LAC 


%FAC3~ 


/FMB LOW 




03423 


R 


745100 


A 




SPA 


CLL 






03424 


R 


603432 


R 




JHP 


, *6 




o 


03425 


R 


740031 


A 




TCA 








03426 


R 


343712 


R 




TAP 


?',HAC3 


/FMA LOW 




03427 


R 


740400 


A 




SNL 






o 


03430 


R 


603445 


R 




JMP 


IPEXiT 


/FMA < FMB 




03431 


R 


603454 


R 




UMP 


JPiFH 


/FMA > FMB 




03432 


R 


740031 


A 




TCA 






o 


03433 


R 


343712 


R 




TAP 


°/oHAC^ 


/FMA LOW 




03434 


R 


741400 


A 




SZL 






o 


















o 



















o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 

o 
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O 03435 R 741200 A SNA 

03436 R 60344S R JMP IDEXJT /FMA < FKB 

03437 R 6034b4 R gWP lOlFR /FMA > FMB 
O 03440 R 740»!^1, A IDV2 CMA 

03441 R 343705 R TAD %FAC2 /FMb HIGH 

03442 R 740100 A SMA 
O 03443 R 603445 R JMP lOEXIT /FMa < FMB 

03444 R 6034^4 R JMP IDJFR /FMA > FMB 

03445 R 143704 R JDEXIT Dz$M %FAC;l /QUOTENT WIUU ? 
O 03446 R 143/^5 R DZM %FAC2 

03447 R 143706 R DZM %FAC3 

034i>0 R 140536 R OHM OVRFLl 

O 03451 R 140537 R D2M UNQFLl 

03452 R 140541 R DHM UNDFLN 

03453 R 603600 R JMP %FUEXIT ^ 
O /DETERMINE THI DIFFERtNCE TWX THE FMA/FmB AND DO THAT MANY SUBTRACTIONS U 

03454 R 143714 R IPIFR D2M %J1 /DIVISION QOUNTER 



O 
O 

o 
o 
o 
o 
o 



o 
o 
o 
o 
o 



03455 R 203711 R JDVC UAC %HAC2 

O 03456 R 504661 R AND (UAC) 

03457 R 740200 A S2A 

03460 R 6034/6 R JMP IDVq3 

O 03461 R 203712 R LAC %HAC3 

03462 R 744010 A RCU /FMA LOW 

03463 R 043712 R DAC %HAC3 
O 03464 R 203711 R LAC %HAg2 

0^465 R 7400X0 A RAL /FMA HIGH 

03466 R 043711 R DAC %HAC2 

O 03467 R 203706 R LAC %FAC3 

03470 R 744010 A RCL /FMB LOW 

03471 R 043706 R DAC %FAC3 
O 03472 R 203705 R LAC %FAa2 

03473 R 740010 A RAL /FMB HIGH 

03474 R 043705 R DAC %FAC2 ^ 
O 03475 R 603455 R JMP IDVC U 

03476 R 443714 R IDVC3 IS2 %J1 /*i TO DIVISION COUNTER 

03477 R 203705 R LAC 5^FAC2 

O 03500 R 504661 R AND (LAC) O 

03501 R 7402W0 A S^A 

03502 R 6035i2 R JMP IDVC4 

O 03503 R 20375^6 R LAC %FAC3 O 

03504 R 744010 A RCL 

03505 R 043706 R DAC %FAC3 

O 03506 R 203705 R LAC %FAC2 O 

03507 R 740010 A RAL 

03510 R 043705 R DAC %FAC2 

O 03511 R 603476 R JMP IDVC3 /FMB 00 NOT ? i O 

/FMB00 = 1 

03512 R 203714 R IDVC4 LAC %J1 

O 03513 R 740031 A TCA 

03514 R 043714 R DAC %J1 /NEGETED DIFFERENCE TWX FMA/FMB 

/THE DIFFERENCE TWX THE FMA/FMB HAS BEED DETERMINED _ 

O /PRIME MANTISSAS FOR SUBTRACTIONS O 

03515 R 744000 A CLL 



c 



o 

o 



o 
o 



o 

o 
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O 

o 



O 03516 R 2037W6 R t,Aq %FACoS O 

03517 R 740031 A TCA 

03520 R 043/16 R DAC %^3 

O 03521 R 203705 R UAC %£AC2 O 

03522 R 74141^1 A CMAIS2L 

03523 R 344643 R TAD (l) 

O 03524 R 043715 R DAC %J2 O 

03525 R 1437M6 R DZM %F'AC3 

03526 R 1437^5 R OHM %FAC2 _ 
O ' /THE 0IVISI0N"IS done: by a series of subtractions, the DIVISOR WJUU BE O 

/SUBTRACTED FROM THE PIVIOENOi IF THE RESULT IS MINUS THE DIVISOR IS 
/LARGER THAN THE DIVJUED AND A BIT IS NOT ADDED TQ THE SHIFTED EXPONENT 

O 03527 R 777777 A l,AW cl " O 

03530 R 044556 R DAC FSTSUB/^ 

03531 R 203706 R %FPA l„AC %FAC3 /SHIFT BUILDING QUOTIENT 1 BIT LEFT 

O 03532 R 744010 A RCL ~ ^ 

03533 R 043706 R OAC %FAC3 

03534 R 203705 R LAC %FAC2 /IF NEGATIVE. THE LARGEST POSSIBLE 

O 03535 R 740010 A RAL /QUOTIENT HaS BEEN OBTAINED, O 

03536 R 741100 A SPA 

03537 R 603616 R JMP %rQZ ^ 
O 03540 R 043/05 R DAC ?'»FAC2 /SUBTRACT LOW DIVISOR FROM O 

03541 R 203/15 R LAC 5^33 /LOW DIVIDEND 

03542 R 343712 R TAD %HAC3 

O 03543 R 043710 R DAC %HAC|, /SAVE TEMPORAR ILYV ,, MAYBE NEW LOW^ORdER DIVIDEND U 

03544 R 750010 A GLK ' 

03545 R 343711 R TAD %HAC2 /IF OVERFLOW ADD 1 TO HIGH ORDER DIVIDEND „ 
O 03546 R 343715 R TAD "442 /SUBJECT HIGH^'ORDER DIVISOR U 

03547 R 740100 A SMA 

03550 R 603602 R ,JMP %rDD /IF NEGATIVE DO NOT GENERATE A QUOTIENT BIT ^ 

O 03551 R 203712 R LAC %HAC3 /CONTINUE WITH OLD DIVIDEND INSTEAD OF REMAINDER Q 

03552 R 744010 A 7.F0B RCL / 

03553 R 043/12 R DAC %HAC3 / ,_, 
O 03554 R 203711 R LAC %HAC2 /SHIFT DIVIDEND ^ 

03555 R 740010 A RAL / 

03556 R 043711 R DAC %HAC2 7 ^ 
O 03557 R 144556 R OHM FSTSUB U 

03560 R 443714 R ISH %J1 /HAVE ALL BITS BEEN SHIFTED 

03561 R 603531 R JMP %FDA /NO,,, CYCLE AGAIN 

O 03562 R 603622 R JMP %FDF /INGEGER JUMP ^ 

/ABNORMAL DIVISION EXPECTED 

03563 R 200527 R %FOC LAC OPCODE 

O 03564 R 504603 R AND (Ft) " O 

03565 R 544604 R SAD (CAL) 

03566 R 440544 R IS2 IDVBY0 /INTEGER DIVISION BY 2ER0 

O 03567 R 544603 R SAD (FL) " O 

03570 R 440542 R ISZ DVBY00 /FLOATING ABNORMAL DIVISION 

03571 R 200527 R LAC OPCODE _^ 
O 03572 R 504610 R AND (DP) ' O 

03573 R 544604 R SAD (CAD 

03574 R 603600 R JMP ,*4 

O 03575 R 140536 R D2M OVRFL^, /ABNORMAL DIVISION TAKES PRECIDENCE O 

03576 R 140537 R OHM UNDFLl /OVER Dp JEA FUNCTIONS 



O 
O 



o 
o 



o 

o 
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O 03623 R 504603 H AMD (F%) 

03624 R 544604 R SAD (CAl,) 

03625 R 143704 R Q'iH %F hC% /MUST EXIT WITH = FQR I DIVISJON 
O 03626 R 203/H R LAC %HAC2 

03627 R 0445i57 R DAC GUARD 

03630 R 200^36 R LAC OVRFLl 



03635 R 741200 A SNA 

03636 R 6036W0 R JMP %FDEXiT 



O 
O 

o 



O 03577 R 140541 R D2M UNDFLN 

03600 R 443231 R %FDEXIT ISZ " "%FD, /BUMP FOR EXIT 

03601 R 623231 R JMP» %FD, /E^IT 

O /AT^FOP THE DIVISOR JS LESS THAN THE DIVIDEND AND A QUOTIENT BIT O 

/IS GENERATED, THE QUOTIENT BIT IS PICKED UP FROM THE CALLING SEQUENCE; 

/IT IS THE LEAST SIGNIFICANT BIT ANp iS ORED INTO THE BUILDING QUOTIENT, _ 

O /AN ADUUSTMENT IS"NECESSARY TO PICK«UP THE NEW DIVIDEND (REMAINDER), O 

/ 

03602 R 043711 R %FDD DAC 5',HAC2 /NEW^H I GHr^OROER DIVIDEND 

O 03603 R 740400 A SNL O 

03604 R 603610 R JMP ,+4 

03605 R 777777 A LAW ^l~ ^ 
O 03606 R 544556 R SAD FSTSUB O 

03607 R 103664 R JMS INCEXP 

03610 R 144556 R OZM FStSUB 

O 03611 R 223231 R LAC» " %F0, /GET LEAST SIGNIFICANT BIT, OR {T O 

03612 R 243706 R XOR %FAC3 /INTP THE LOWsQRDER QUOTIENT WORD 

03613 R 043706 R DAC %¥ hCi /SAVE NEW QUOTIENT 

O 03614 R 203710 R LAC %HACJ, /GET L0W«ORDER REMAINDER O 

03615 R 603552 R gMP %FDB /GO BACK AND SHIFT QUOTIENT 

O /AT %PDE THE LARGEST POSSIBLE QUOTIENT HAS BEEN OBTAINED, THE O 

/QUOTIENT WAS SHIFTED LEFT ONE BIT TOO MANY, SHIFT IT BACK 1 BIT 

/AND INCREMENT THE EXPONENT OF THE QUOTIENT 

O ^ .. - - Q 

03616 R 744020 A %FDE RCR /HlGHt^ORDER QUOTIENT 

03617 R 203706 R LAC %FAC3 /GET LOW^ORQER QUOTIENT AND 

O 03620 R 740020 A RAR /REPLACE BIT TAKEN FROM IT. O 

03621 R 043706 R DAC %r AC^ /MANTISSA PORTION COMPLETE, 

03622 R 200527 R %FDF LAC OPCODE 



O 

O 
O 



O 03631 R 741200 A SNA 

03632 R 603600 R JMP %FDEXIT 

03633 R 20053/ R LAC UNDFLl 
O 03634 R 340541 R TAD UNDFLN O 



O 03637 R 200527 R LAC OPCODE 

03640 R 504610 R AND (DP) 

03641 R 544610 R SAD (.OP) 
O 03642 R 603646 R JMP ,+4 

03643 R 203704 R LAC %FAC1 

03644 R 544577 R SAD (400) 
O 03645 R 741000 A SKP 

03646 R 140536 R DXM OVRFLl 

03647 R 140537 R DZM UNDFLl 

O 03650 R 140541 R DZM UNDFLN O 

03651 R 603600 R JHP %FDEXIT /E^IT ROUTINE WITHOUT NORMALIZING. 



O 
O 
O 



O 

O 



C.) 














o 
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rpi^i'd SRC 


SUBTITLE FPOINT«NQN 


o 


036132 


R 


000000 


A 


OCHECK 







0^653 


R 


20052/ 


R 




LAC OPCOPE 




03654 


R 


504575 


R 




AND (0P6T09) 


o 


03655 


R 


544600 


R 




SAO (MUC) 




03656 


R 


745000 


A 




SKPJCLL, 




03657 


R 


544601 


R 




SAO (PIV) 


o 


03660 


R 


745000 


A 




SKP\QL\. 




03661 


R 


544637 


R 




SAO (RDIV) 




03662 


R 


443652 


R 




ISH OCHECK 


o 


03663 


R 


623652 


R 




JMP'V gCHECK 












/INCREMENT EXPONENT ROUTINER 




03664 


R 


003664 


R 


INGEXP 


,DSA , 


o 


03665 


R 


443/04 


R 




IS2 %FAC1 




03666 


R 


740000 


A 




NOP 




03667 


R 


200527 


R 




LAC OPCODE 


o 


03670 


R 


504610 


R 




AND (OPJ 




03671 


R 


544610 


R 




SAD (DP) 




03672 


R 


603700 


R 




JMP ,+6 


o 


03673 


R 


203704 


R 




LAC %FAC3, 




03674 


R 


544710 


R 




SAD (7/7400) 




036/5 


R 


440536 


R 




ISZ OVRFLl 


o 


03676 


R 


5445/7 


R 




SAD (400)' 




03677 


R 


440536 


R 




IS2 OVRFIal 




03700 


R 


203704 


R 




LAC %FAC1 


o 


03701 


R 


544626 


R 




SAD (400000) 




03702 


R 


440536 


R 




ISZ OVRFLl 




03703 


R 


623664 


R 




JHP» INCEXP 


o 


03704 


R 


000000 


A 


%FAC3, 







03705 


R 


000000 


A 


%FAC2 







03706 


R 


000000 


A 


%FAC3 





o 


03707 


R 


000000 


A 


J'oFAC^ 







03710 


R 


000000 


A 


%HAqi 







03713, 


R 


000000 


A 


%HAC2 





o 


03712 


R 


000000 


A 


%HAC3 







03713 


R 


000000 


A 


%HAC4 







03714 


R 


000000 


A 


%J1 





o 


03715 


R 


000000 


A 


5«vl2 







03716 


R 


000000 


A 


%J3 







03717 


R 


000000 


A 


%J4 





o 


03720 


R 


000000 


A 


%s)5 







03721 


R 


000000 


A 


/ 
/ 

/ 


/SIGN OF Flo 


o 












o 














o 





























o 














o 















o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

ACC 

o 
o 
o 
o 
o 
o 



o 
o 
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O ,TIT(,E SUBTITLE DOUBLE 

/ 
/ 

O / 



O / 



03734 R 043706 R DAC :^»FAC3 

O 03735 R ZBZ722 R 0LAC3, LAC DIAC 

03736 R 504701 R AND (77777) 

03737 R 544711 R SAP (%DP9A) 
O 03740 R 603745 R JMP DL,AC2 

03741 R 544712 R SAD (%DP6A) 

03742 R 603745 R JMP DUAqH 
O 03743 R 102024 R JMS %FL.OT, 

03744 R 623722 R JMP« Di-AO 

O 
O 



O 



o 

o 
o 
o 
o 



, I FUND JSNDOUB 
/DOUBLE PRECISION FLOATING POINT PACKAGE 

o / ■ ■ "■■ 

/ 

/ 

O / 

/ OLAC LOAD 

/ DDAC STORE 

O / DP AD ADD O 

/ PSUB SUBTRACT 

/ DDVD DIVIDE _ 

O / OMPY MULTIPLY ^ 

/ DOVR REVERSE DIVIDE 

/ DSBR REVERSE SUBTRACT ^ 

O / o 

O /REQUIRED PROGRAMSJ FPOINT' GENERAL FLOATING POINT ARITHMETIC O 

/ 
/, 

/ 

/DOUBLE PRECISION FLOATING POINT LOAD fDLAC) 
O /CALLING SEQUENQEl O 

/ 

/ JMS DLAC /SUBR CALL (XCT IF INOIrECT). ^ 

O / XCT AODR /ADDRESS Of DOUBLE PRECISION O 

/ NEXT INSTRUCTION /RETURN ARQ IN FLT ACC 



o 



03722 R 000000 A OlAC 

03723 R 10215:1. R JMS %FG, /GET ADDRESS OF ARGUMENT 

O 03724 R 000000 A %DP1 /ARGUMENT ADDRESS C 

03725 R 223724 R LAG* %UPl /FIRST WORD 

03726 R 043704 R DAC /iFACl /EXPONENT 

O 03727 R 443724 R ISH %DPl /POINT TO SECOND WORD O 

03730 R 223724 R LAC** %DP1 

03731 R 043705 R DAC %FAC2 

O 0^5732 R 443724 R I5Z %Dpl O 

03733 R 223724 R UAC» %DP1 /LOW^ORDER MANTISSA 



O 
O 
O 
O 

O 



o 

o 



o 

o 
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O 03745 R 200tJ27 R DL,AC2 LAC OPCODE O 

03746 R 5045/5 R AND (6P6T09) 

03747 R 544602 R SAO (RSijB) 

O 03750 R 623722 R JMP» DUC O 

03751 R 544637 R SAO (ROIV) 

03752 R 623722 R JMP« DLAC 

O 03753 R 102024 R JHS %FCoT , O 

03754 R 623/22 R JMP» ' DLAC 

-EJECT 



O 
O 
O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 

o 
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/CAUUING SEQUENCE? 

O / 



o ^ 

/DOUBLE PECISION FLOATING PQlNT MUkTlPlY (DMPY3 
/CALl-JNG SEQUKNCEl 

O / 



.EJECT 



o 

o 



O /DOUBLE PRECISION nOATlNG STORE (DDACJ O 

/CALLING SEQUENCE? 

O / JMS UDAC /SUBR CALLCVALUE IN FLOATING ACO O 

/ XCT ADOR /AODR OF AHG (XCT IF INDIRECT) 
/ NEXT INSTRUCTION /SUBR RETURN (VALUE IN ARG AND FLOATING AGO ^ 

o / ■ o 

037^5 R 000000 A DDAC 

037SP6 R i021t?l R JMS /oFG, /GET ADDRESS _ 

O Q'67'^7 R 0000^)0 A %DP2 O 

03760 R 203704 R LAC %P:AC1 /EXPONENT 

03761 R 0637^7 R DAC» • %DP2 _ 
O 03762 R 4437;?7 R ISZ ^«0P2 O 

03763 R 20370S R LAC %FAC2 /2ND WORD 

03764 R 0637S7 R DAC* ?iOP2 _ 
O 03765 R 443757 R ISZ %PP2 /3KD WORD O 

03766 R 203706 R LAC %FAC3 

03767 R 0637^7 R DAC« %0P2 

O 03770 R 6237S5 R gMP» POAC O 

/DOUBLE PRECISION FLOATING POINT SUBTRACT (DSUB) 



O 



/ JHS USUB /HlNUEND IN FLOATING ACC 

/ XCT aODR /ADDR of SUBTRAHEND (XCT IF INDIRECT? 

O / NEXT INSTRUCTION /SUBR RETURN (DIFFERENCE IN FLOATING AC) O 

/ 

03771 R 000000 A DSUB 

O 03772 R 1021S1 R UMS %FG, /GET ADDRESS OF SUBTRAHEND O 

0677i R 000000 A /iDPS /STORED ADDRESS OF SUBTRAHEND 

03774 R 102142 R JMS %FNEG| /NEGATE MINUEND (SUBTRAHENO^MINUEO) 

O 03775 R 104055 R JMS QFAD /DOUBLE PRECISION ADD O 

03776 R 4037/3 R %DP3*400000 /INDIRECT ADDRESS (XCT) OF ARG 

03777 R 623771 R JHP* " PSUB /EXIT 



O 
O 



/ JMS PMPY /SUBR CALL (MULTIPLICAND IN ELATING ACC) 

/ XCT AOPR /ADOR OF MULTIPLIER (XCT IF INDIRECT) 

O / NEXT INSTRUCTION /SUBR RETURN (PRODUCT IN FLOATING ACC) O 

/ 

04000 R 000000 A DMPY 

O 04001 R 102151 R JMS %FG, /GET ADDRESS OF MULTIPLIER AND O 

04002 R 000000 A %DP4 /STORE HERE 

04003 R 102300 R JMS '^^FH, /HOLD FLOATING ACC. ^ 
O 04004 R 103722 R JMS PLAC O 

04005 R 404002 R %DP4*400000 /MULTIPLIER 

04006 R 103061 R JMS " %FM, /GENERAL MULTIPLY 

O 04007 R 102310 R JMS %F|R» /ROUND AND SIGN O 

04010 R 000000 A 0" /ROUND OFF BIT 

04011 R 777777 A 777777 /MASK ^ 
O 04012 R 624000 R JMP« DMPY /EXIT O 



O 
O 



o 
o 



o 



o 
o 

o 
o 
o 
o 
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/ 


JMS 




DOVD 










/ 


XCT 




APDR 










/ 
/ 

DDVD 


NEXT 


INSTRUCTION 


04025 


R 


000000 


A 









040H6 


R 


102151 


R 




JMS 




?^FG, 


04027 


R 


000000 


A 


%0P6 









04030 


R 


102300 


R 




JMS 




%FH, 


04031 


R 


103722 


R 




vJHS 




oCac 


04032 


R 


404027 


R 




%DP6i 


^400000 


04033 


R 


103231 


R 


%DP6A 


JMS^ 




^FPi 


04034 


R 


000000 


A 




CAL 






04035 


R 


000001 


A 








% 


04036 


R 


102310 


R 




JMS 




"/»FIRi 


04037 


R 


000000 


A 








y" 


04040 


R 


7777/7 


A 








77777/ 


04041 


R 


624025 


R 




JMP<» 




ODVQ 












.EJECT 





o 

o 
o 
o 



O /r --- 

/ 

/DOUBLE PRECISION FUOATINQ POINT REVERSE DIVIDE (OOVR) 
O /CALLING sequence; 

/ 

/ JMS PQVR VSUBR CALL (DIVISOR IN FLT ACC) 

O / XCT ADDR /ADDRESS OF DIVIDEND O 

/ NEXT INSTRUCTION /RETURN (QUOTIENT) IN FLOATING ACCUMULATOR) 

O 04013 R 000000 A DOVR U 

04014 R 102151 R JMS "/.FG, /GET ADDRESS OF DIVIDEND 

04015 R 000000 A %DP5 

O 04016 R 103755 R JMS PDAC /STORE DOUBLE O 

04017 R 003714 R ,OSA %JX 

04020 R 103722 R JMS OLAC /LOAD DOUBLE ^ 

C 04021 R 404015 R %DP5+400000 /DIVIDEND O 

04022 R 104025 R JMS " DDVD /DIVIDE 

04023 R 003714 R ,DSA %JX 

O 04024 R 624013 R JMP« DPVR /EXIT O 

/DOUBLE PRECISION FLOATING POINT OIVIPE (DDVD) 

/CALLING SEQUENCE? ^ 

O / - Q 

/SUBR CALL (DIVIDEND IN FLOATING ACC) 

/XCT IF INDIRECT (ADDR OF DOUBLE PRECISION DIVISOR) ^ 

O / NEXT INSTRUCTION /RETURN (QUOTIENT IN FLOATING AGO O 

/ 

04025 R 000000 A DDVD 
O 04026 R 102151 R JMS ?^FG, /GET ADDRESS OF ARGUMENT O 

/ADDRESS OF DIVISOR 
/HOLD DIVIDEND 



o 



„ ,. ., /GENERAL FLOATING DIVIDE 

O 04034 R 000000 A CAL /36 BIT AUOTIENT O 

/LEAST SIGNIFICANT QUOTIENT BIT 

„ . _.^ . , , /ROUND AND INSERT SIGN ^ 

O 04037 R 000000 A 0' /ROUND OFF Bit O 

/MASK 
/EXIT 



O 
O 
O 
O 
O 

o 



o 
o 
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O 04070 R 624&);?!? R JMP<> DFAD 

I EJECT 

O 
O 
O 

O 

o 

o 



o 
o 



O /DOUBLE PRECISION FLOATING POINT REVERSE SUBTRACT (DSBR) O 

/CALLING sequence; 

O / JHS DSBR /SUBTRAHEND IN FLOATING ACC, O 

/ XCT APDR /AOORESS OP MINUEND 

/ NEXT INSTKUCTIQN /DtFFERENCE IN FLOATING ACC, ^ 

O / o 

04042 R 000000 A DSBR 

04043 R 1021^3, R JMS /,F'G, _ 
O 04044 R 000^300 A ?^DP7 " O 

04045 R 1037^5 R JMS DDAC 

04046 R 003714 R ,DSA ?SJ3, 

O 04047 R 103/22 R JMS DLAC O 

04050 R 404fc544 R %DP7 + 4t?0fei^0 

04051 R 102142 R JMS """^['NEG, /NEGATE SUBTRAHEND 

O 040532 R 1040^5 R JMS OFAD /ADO DOUBLE O 

040i?3 R 003714 R %J1 /MINUEND'SUBTRAHENO 

04054 R 624042 R JMP* PSBR 

O, " / '^ O 

O /DOUBLE PRECISION FLOATING POINT ADD (DFAD) O 

/CALLING SEQUENCEI 

O / JMS DFAD /AUGEND IN FLOATING ACC O 

/ ,DSA AODR*400000 /XCT IF INDIRECT 

/ NEXT INSTRUCTION " /SUBR RETURN "(SUM IN FLOATING ACC) 

o / ■■ ■■ o 

04055 R 0Pi0000 A DFAD 

04056 R 102151 R JMS %FG, /GET ADDRESS OF ADDEND 

O 04057 r B00000 A 7«DP9 /STORE ADDRESS O 

04060 R 102300 R JMS %r\U /HOLD FLOATING AOC 

04061 R 103722 R ^HS OfAC 

O 04062 R 404057 R %DP9*400000 O 

04063 R 102447 R %0P9A JHS "' %FA, /GENERAL FLOATING ADD 

04064 R 000043 A 43 /MAX SHIFT 

O 04065 R 102310 R JMS '/'HRi /ROUND AND SIGN O 

04066 R 000000 A »" /LEAST SIGNIFICANT BIT 

04067 R 777777 A 777777 /MASK 



O 
O 
O 
O 
O 
O 

o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



PAGi; 6;5 



pPl^Tii SRC 



SUBT!Tl,E double; 



o 

o 

O 
O 
O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 

o 
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O f 



04102 R 344710 R TAD {111^^ 

O 04103 R 043704 R DAC %FACl" 

04104 R 44407;? R IS2 r.SPl /BUMP TO SECOND WORD 

04105 R 224073 R LAC* %SP1 

O 04106 R 504660 R AND (3777/7 

04107 R 043705 R DAC °/.FAC2' 

04110 R 2H4073 R UAC» %SP1 

O 04111 R 5046^6 R AND (4000!(30 



04112 R 043717 R DAQ 7oJ4 



o 



o 
o 
o 
o 



O tTITt,e SUBTITLE SINGLE 

,IFUND 7.NSING 
/SINGLE PRECISION FLOATING POINT PACKAGE 

o / ' "• 

/ 

/ SINGLE PRECISION 

O / 

/ 

/ FLAG LOAD 

O / FDAC DEPOSIT O 

/ FAD ADO 

/ FSUB SUBTRACT 

O / FMPY MUI^TIPLY O 

/ FDVD DIVIDE 

/ FSBR REVERSE SUBTRACT 

O / FDVR REVERSE DIVJOE O 

/ 

O / o 

/REQUIRED PROGRAMS? FPO I NT ( GENERAL FLOATING ARITHMETIC) 

O /TERMSI 1, Ar^REG P0P«15 HARDWARE ACCUMULATOR O 

/ 2, FLT ACC FLOATING ACCUMUI,ATOR (%FAC1,%FAG2. %FAC3) 
/ 3, HELD ACC HELD ACCUMULATOR ('/.HACl, 5iHAC2, %HAC3) 

o / o 

/ 

o / o 

/FLOATING POINT LOAD (FLAG) 
/CALi^ING SEQUENCE! 
O / UMS " FLAC /SUBR CALL O 

/ ,OSA ADDR+400000 /ADDR OF S,p, FLOATING POINT NUMBER 
/ NEXT INSTRUCTION " /SUBR RETURN 



o 



04071 R 000000 A FLAG 

O 04072 R 102151 R JMS %FG, /GET ADDRESS O 

04073 R 000000 A %SP1 /(ADDRESS OF SINGLE PRECISION WORD) 

04074 R 224073 R LAC« %SP1 /HlGH^OROER WORD AND SPLIT 

O 04075 R 504630 R AND (7770^0 /GET LOW^ORUER MANTISSA O 

04076 R 043706 R DAC %FAc3" 

04077 R 224073 R LAC<> /oSPl /SPLIT AGAIN 

O 04100 R 504655 R AND (000/77 /GET EXP0Nt;NT O 

04101 R 2445/7 R XQR (000400 /EXTEND SIGN BIT TO FILL. OUT EXPONENT WORD, 



O 

o 
o 
o 
o 



o 
o 



o 



o 
o 



PAGE 65 FPli^TiJ SRC SUBTITLE SINGUE 



O 04U^ R 203705 R UAC %r ^C2 

0413,^ R 343717 R TAD ?'»J4 

04115 R 0437MS R OAC %KAC2 

O 04116 R 624071 R JMP» FUAC /EXIT 

/ 

o / 

/FLOATING POJNT STORE 
_ /CALUING SEQUENCE? 

O / JMS FPAC /SUBR CALl, O 

/ XCT ALJDR /APPR + 400000(IF INPIRECT) 

/ NEXT INSTRUCTION ' /RETURN 



/ 

/ 

04117 R 000000 A FDAC 



O 04134 R 624117 R gHP« FDAC /EXiT 

/ 



O 04142 R 404137 R %SP3+400000 

04143 R 102447 R JMS "' Wh, /GENERAL Fl,OAT![NG ADD 



O 

o 
o 
o 

o 



o 



O 04120 R 1021t?l R JMS %FG, /GET ADDRESS O 

04121 R 000000 A %SP2 /{ADDRESS PF SINGLE PRECISION WORD) 

04122 R 203/04 R IhC %FAC1 /GET EXPONENT 

O 04123 R 5046&5 R AND (000777 /STRIP OFF UEFT HALF O 

04124 R 064121 R DAC» %SP2 ' /STORE EXPONENT 

04125 R 203706 R 1,AC %FAC3 /GET UOW^OROER MANTJSSA 

O 04126 R 504630 R AND C777000 /STRJP OF RJGHT HALF O 

04127 R 364121 R TAD» %SP2 " /MERGE WITH EXPONENT 

04130 R 064121 R DAC» %SP2 /STORE COMPUETEO WORD 

Q 04131 R 444121 R ISZ %SP2 /POINT TO NEXT RECEIVING AREA, O 

043,32 R 203705 R LAC %FAC2 /HlGH^ORDER MANTISSA 

4133 R 064121 R OAC» %SP2 /STORE IT 



O 

O 

/FLOATING POINT ADO (FAQ) 

/CALLING SEQUENCE! 
O / JMS FAD /SU8R CALL O 

/ XCT AOOR /(XCT IF INDIRECT) 

_, / NEXT INSTRUCTION /RETURN HERE 

o / o 

/THIS SUBROUTINE DOE§ THE SET-UP WORK FOR SUBROUTINE %FA, 

/THE AUGEND JS STQREO IN THE HELD ACCUMULATOR AND 

O /THE ADDEND IS LOADED |NTO THE FLOATING ACCgMULATORi O 

/ROUNDED AND THE SJGN |S INSERTED, 

O / o 

04135 R 000000 A FAD 

04136 R 102151 R JMS %FG, /GET ADDRESS 

O 04137 R 000000 A %SP3 " /(ADDRESS OF SINGLE PRECISION ADDEND) O 

04140 R 102300 R JMS %FH, /MOVE FLOATING ACC TO HELD ACC, 

04141 R 1040/1 R JMS FLAC /LOAD FLOATING AC 



o 



04144 R 000043 A 43 

O 04145 R 102310 R gMS %FIR| /FLOATING INSERT AND ROUNT O 

04146 R 000400 A 400 /ROUND 



O 
O 



o 
o 



o 
o 
o 

o 
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C 04160 R 000000 A PMPY 



04161 R 1021^31 R JMS %Fe, /GET ADDRESS 

04162 R 000000 A %SP5 ~ /ADDRESS OF S INGLE PREC I S I ON MUI^TIPI, ICAND , 



.EJECT 



o 
o 



O 04147 R 7770630 A mm^ /MASK O 

04150 R 624i«55 R JMP<> FAD ' /RETURN 

/FUQATING POINT SUBTRACT _ 

O /CALUING SEQUENCE? O 

/ JMS FSUB /SUBR CAL,t, 

/ XCT APDR /XCT IF INDIRECT _ 

O / NEXT INSTRUCTIPN /SUBR RETURN ^ 

/ 

/FLOATING POINT SUBTRACT DOES THE SETUP WORK REQUIRED TO _ 

O /PERFORM THE FCOATING POINT ADD INSTRUCTION, THE MINUEND O 

/IS NEGATED AND UPON RETURNING FROM %FA, THE SUM IS 

/NEGATED, THIS IS DONE TO TAKE FULL ADVANTAGE OF %FA, AND _ 

O /TO MINIMISE CORE, O 

/ 

04151 R 000000 A FSUB ^ 
O 041S2 R 1021^31 R UMS %FG, /GET ADDRESS OF SUBTRAHEND O 

04153 R 000000 A %SP4 /STORE ADDRESS 

041&4 R 102142 R JMS %FNEG, /NEGATE FLOATING ACC ^ 

O 04155 R 104135 R JMS FAD O 

04156 R 404153 R %SP4*400000 /,OSA % SP4+400000 (INDIRECT) 

04157 R 624151 R JMP» ' FSUB /EXIT ^ 

O " ■ /, o 

O /FLOATING POINT MULTIPLY (FmPY) O 

/CALLING SEQUENCE! 

/ JMS FMPY /ENTRY^EXIT ^ 

O / XCT APDR /ADDRESS OF MULTIPLIER{ XCT IF INDIRECT) O 

/ NEXT INSTRUCTION /RETURN HERE 

O /FMPY DOES THE SETUP WORK NECESSARY TO EXECUTE THE GENERAL O 

/FLOATING POINT MULTIPLY INSTRUCTION? NAMELY, STORING THE 

/MULTIPLICAND |n THE HELD ACCUMULATOR AnD 
O /LOADING THE FLOAtiNG POINT ACCUMULATOR WITH O 

/MULTIPLIER 



O 



O 04163 R 102300 R JMS 7oFH, /STORE IN HELD ACC, O 

04164 R 104071 R JMS FLAC /LOAD MULTIPLIER 

04165 R 404162 R %SP5+400000 /INDIRECT ADDRESS 

O 04166 R 103061 R JMS ~ %FM, /GENERAL FLOATING POINT MULTIPLY O 

04167 R 102310 R JMS %FIR, /ROUND AND INSERT SJGN OF PRODUCT 

04170 R 000400 A 400 

O 04171 R 77705^0 A 777000 /MASK FOR ROUND OFF O 

04172 R 624160 R JMP» FMPY /EXIT 



O 
O 
O 
O 



o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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04173 


R 


000000 


A 


FDVD 







04174 


R 


102151 


R 




JMS 


%p;g, 


041/5 


R 


00000B 


A 


%SP6 







04176 


R 


102300 


R 




JMS 


%P'H, 


04177 


R 


104071 


R 




JHS 


FLAG 


04200 


R 


404175 


R 




%SP6+400000 


04201 


R 


103231 


R 




JHS" 


'/'CO. 


04202 


R 


000000 


A 




CAl. 




04203 


R 


0000fcil 


A 






1 


04204 


R 


102310 


R 




JMS 


%FIR, 


04205 


R 


000400 


A 






400 


04206 


R 


777000 


A 






77700^) 


04207 


R 


624173 


R 




JMP<> 


FDVD 












.EJECT 





/l,QAD DIVISOR 

/GENERAL, FLOATING DIVIDE; 

/QUOTIENT BIT 
/INSERT SIGN, ROUNDOFF 



o 

o 
o 

o 



/ 

/FI,0ATING POINT DJVIDE (FDVD) 
O /CALLING SEQUENCE! 

/ JMS FDVD /SUBR CALL 

/ XCT ADDR VAPOR, OF DIVISOR 

O / NEXT INSTRUCTION /SUBR RETURN O 

/ 

/FDVD DOES THE SET UP FOR %F0, THE GENERAL PURPOSE FLOATING 
O /POINT INSTRUCTION, IT DOES THIS BY O 

/STORING THE DIVIDEND IN THE HELD ACC AND BY STORING 

/DIVISOR IN THE FLOATING ACC, ^ 

o / "' "• •• ' o 

04173 R 000000 A F„ ,_ 
C 04174 R 102151 R JMS %FG, /GE;t ADDRESS OF DIVISOR O 

/ADDRESS OF DIVISOR 
/HOLD IT 



O 
O 
O 
O 

o 

o 

O 
O 

o 
o 
o 
o 
o 
o 



o 
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/ 

/REVERSE SUBTRACT (fSBR) 
O /CAUL,ING SEQUENCEI 

/ gnS F38R /SUBR CAUt 

/ XCT ADOR /ADOR OF MJNUEND(XCT IF INDIRECT) 
O / NEXT INSTHUCTION /SUBR RETURN DIFFERENCE IN FLOATING ACC, O 

/ 

/ 
O 0<}210 R 000000 A FSBR 

04213, R 1021!3l R JMS %FG, /GET ADDRESS OF MINUEND 



O 
O 
O 
O 
O 
O 



H234 R 624223 R JMP« FPVR 

lE^ECT 



o 

o 

o 
o 



o 
o 
o 



04212 R 000000 A %SP7 

O 04213 R 104117 R vIMS FOAg 

04214 R 003/14 R ,DSA %4X 

04215 R 104071 R vIMS FLAG 
O 04216 R 404212 R %SP7*4000ia0 

04217 R 102142 R JMS -"'%fNEG, /NEGATE SUBTRAHENQ 

04220 R 10414S R .JHS FAP /ADD ,-, 

O 04221 R 003714 R ,DSA %JX /MlNUEND^SUeTRAHEND ^ 

04222 R 624210 R ^MP<^ FSBR 

O / o 

O /REVERSE DIVIDE (FDVR? O 

/gAH,ING SEQUENCE? 

/ JMS " FPVR /CAUUiOI VISOR IN FLOATING ACQ, 

O / XCT ADOR /ADOR OF DIVID^NDCACT IF INDIRECT) O 

/ NEXT INSTRUCTION /SUBR RETURN<QUOTli;NT IN FLOATING ACC,) 



O 
O 



/ 

O / 

04223 R 000000 A FDVR 

04224 R 1021^1 R JMS %FG, /GET ADDRESS OF DIVIDEND 
O 0422S R 000000 A %SP8 

04226 R 104117 R JMS FUAC /SAVE DIVISOR 

04227 R 003714 R ,OSA %4% /USE HEtD ACCUMULATOR TEMPORARILY 

O 04230 R 104071 R JMS FLAG O 

04231 R 40422S R %SPa*400000 /(DIVIDEND) 

04232 R 104173 R .JMS FDVD ^ 
O 04233 R 003714 R ,OSA %Jl /(AODR OF DIVlSOR) O 



O 
O 
O 
O 
O 

o 



o 
o 



o 
o 



o 

o 



PAGE 69 FPl»T''=i SRg SUBTITLE; S?NGl,E 



O /TEST FOR DATA '5Wi0' WHJCH INHJEITS THC tFPPi5» TEST, O 

/ 

04235 R mmm a hqi^dsw 

O 04236 R 750004 A LAS O 

04237 R 5000^0 R AND USERSW+10 /DATA 'SWl0f 

04240 R 741200 A SNA " " /IS SWITCH SET? 

O 0424], R 624235 R JMP» HUUDSW /NOi EXIT O 

04242 R 200073 R tAC DSTSWK) 

04243 R 044546 R OAC SAVQSf 

O 04244 R 2047X3 R UAC (HOUDii /YES, HALT PROGRAM O 

04245 R 040073 R DAC USTSWW 

04246 R 604256 R JMP EXITM5 /EXIT '»5» 

O 04247 R 204546 R HOLD.V LAC SAVPSf O 

04250 R 040073 R DAC DSfSWW /RESTORE RETURN ADDRESS 

04251 R 604236 R ^MP HQLDSW*! /RETEST SWITCH _^ 
O ■" /SUBROUTINE TO UPDATE "DSTSW0" ON EMTlNG O 

/ 

04252 R 000000 A PCNEXT „ 
O 04253 R 204252 R LAC PCNEXT O 

04254 R 040073 R OAC OSTSW0 

04255 R 604256 R JMP EXITH5 

O /SUBROUTINE TO EXIT '«5t, O 

/ 

04256 R 777773 A EXITM5 LAW s5 

O 04257 R 040020 R DAC SYSERK O 

04260 R 620062 R JMP<* SERVICE 

/SETUP TO' TYPE 'DONE'i ^ 

O / " O 

04261 R 777774 A EX|TM4 LAW «4 

04262 R 040020 R DAC SYSERR _ 
O 04263 R 140021 R D^M SYSERK*! O 

04264 R 140022 R OZM ERCODE 

04265 R 620062 R JMP» SERVICE _ 
O /ERROR i» FP15 CONFIGURATION NOT PRESENT O 

04266 R 777777 A ERRORl LAW ' "1 

04267 R 040020 R OAC SySERR _ 
O 04270 R 204643 R LAC U ' /ERROR CODE O 

04271 R 040022 R DAC ERCODE 

04272 R linil A LAW »! ~ 

O 04273 R 040021 R DAC ERCODEnl O 

042/4 R 620062 R ^MP<* SERVICE 

/REtjSET tDSTSW0' TO CONTINUE AFTER TYPING ERROR, 

O 04275 R 000000 A EXTERR O 

04276 R 200073 R LAC PSTSW0 

04277 R 044562 R DAC SAVADR# 

O 04300 R 204714 R LAC «,*3 ' O 

04301 R 040073 R OAC OSTSWiP 

04302 R 620062 R JMP» SERVICE _ 
O 04303 R 204562 R LAC SAVAPR O 

04304 R 040073 R DAC DSTSW0 

04305 R 624275 R JMP» EXTERR ^ 
O .EJECT O 



O 

o 



o 
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FP15T2 SRC 


SUBTITLE S?NGUE 


o 


04306 


R 


000000 


A 


SETDMP 









04307 


R 


144544 


R 




DHM 


APIPN 




04310 


R 


705512 


A 




RPl 




o 


04311 


R 


044544 


R 




OAC 


API ON 




04312 


R 


705514 


A 




ISA+10 






04313 


R 


700002 


A 




iOF 




o 


04314 


R 


717300 


A 




DMN 






0431S 


R 


000000 


A 











04316 


R 


710314 


A 




PPT 




o 


04317 


R 


000000 


A 











04320 


R 


710177 


A 




0SR*77 






04321 


R 


000547 


R 




REGADR 




o 


04322 


R 


710100 


A 




DSR 






04323 


R 


00054/ 


R 




REGADR 






04324 


R 


703304 


A 




D8K 




o 


04325 


R 


700042 


A 




ION 






04326 


R 


204544 


R 




UAC 


APION 




04327 


R 


504626 


R 




AND 


? 400000 


o 


04330 


R 


705504 


A 




ISA 






04331 


R 


624306 


R 


/ERROR 


JMP^^ 
2 


SpDMP 


o 










/DATA ERROR 






04332 


R 


000000 


A 


ERR0R2 


f 






o 


04333 


R 


777776 


A 




LAW 


"2 




04334 


R 


040020 


R 




DAC 


SYSERK 




04335 


R 


777777 


A 




LAW 


H 


o 


04336 


R 


040021 


R 




DAC 


SYSERK+l 




04337 


R 


204644 


R 




UC 


«2 




04340 


R 


040022 


R 




DAC 


ERCOPE 


o 


04341 


R 


104275 


R 




JMS 


EXTERN 




04342 


R 


104427 


R 




JMS 


ERROR 




04343 


R 


624332 


R 




JMP» 


ERR0R2 


o 










/ERROR 


/ 

3 














/UNEXPECTED tJEA' BREAK 


o 












/ 






04344 


R 


040023 


R 


ERR0R3 


DAC 


ERCqDE*! 




04345 


R 


777776 


A 




lAW 


''2 


o 


04346 


R 


040020 


R 




OAC 


SYSERK 




04347 


R 


77711b 


A 




lAW 


»2 




04350 


R 


040021 


R 




DAC 


SYSERK + i, 


o 


04351 


R 


204645 


R 




lAC 


{3 




04352 


R 


040022 


R 




DAC 


ERCOO& 




04353 


R 


104275 


R 




JMS 


EXTERR 


o 


04354 


R 


104427 


R 




JMS 


ERROR 




04355 


R 


600444 


R 




JMP 
.EJECT 


FPABORT 


o 
















o 
















o 
















o 

















/IS lAPP ON? 

/SET »APII SWITCH 
/TURN 'APP OFF 
/TURN INTERRUPT OFF, 
/TURN On FPP DUG, MODE 

/DUMMY INSTRUCTION 

/READ REGISTERS, 
/STORE DATA IN TABLE 



/TURN DIAG MOOE OFF, 
/ENABLE »PP 



/ENABLE »API' IF IT WAS ON, 



/TYPE ERROR 2 HEADER 
/DUMP DATA REGISTERS 



/SAVE NgMBER OF ERRpR 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



(J 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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04356 
043b7 
04360 
04361 
0436? 
04363 
04364 
04365 
04366 
04367 



04370 
04371 
04372 
04373 
04374 
04375 
04376 
04377 
04400 



04401 
04402 
04403 
04404 
04405 
04406 
04407 
04410 
04411 
04412 
04413 



PP15T2 SRC 



subtitle: single 



R 040 
R 777 
R 040 
R 7 77 

R 040 
R 204 
R 040 
R 104 
R 104 
R 600 



023 
776 

020 
7 76 
021 
646 
022 
2/5 
427 
444 



R 777 

R 40 
R 777 

R 040 
R 204 

R 040 
R 201 
R 040 
R 104 
R 104 
R 600 



R 777776 A 

R 040020 R 

R 777777 A 

R 040021 R 

R 204647 R 

R 040022 R 

R 104275 R 

R 104427 R 

R 600444 R 



776 A 

020 R 
776 A 

021 R 
650 R 

022 R 
764 R 

023 R 
275 R 
427 R 
444 R 



/ERROR 4 
/EXPECTED 
/ 
ERR0R4 



'JEA' BRE'AK BUT NONE OCCURRED 



/E«ROR 
/UQAP 

ERRORS 



DAC 
UAW 
PAC 
LAW 
DAC 
i,AC 
DAC 
JMS 
JMS 
JMP 
/ 



ERCOOE*! 

"2. 
SYSERR 

SYSERK*! 
(4 

ERCODE 
EXTERR 
ERROR' 

FPABORT 



/SAVE NUMBER OF ERROR, 



5 
AND 
/ 



STORE FAJUU':'E 



LAW 
DAC 

UW 
DAC 
UAC 
DAC 

jm 

JMS 

JMP 

/ 
/ERROR 6 
/AN UfgeXPECTEP 

/ 



ERR0R6 



LAW 
DAC 
LAW 
DAC 
LAC 
PAC 

LAC 
DAC 
JMS 
JMS 
JHP 
.EJECT 



^^2 
SYSERR 

= 1 

SYSERR"^! 

(5 

ERCODE 

EXTERR 

ERROR 

FPABORT 



f BRANCH* OCCURRED 

SYSERR 

SYSERR*1 
(6 

eRcode 

NBRANCH 

ERCODE+l 

EXTERR 

ERROR" 

FPABORT 



/#li ERROR CODg 6 

/#gi FAILING 'BRANCH' lOT 



O 
O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 
o 



o 
o 
o 
o 

o 

o 
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.EJECT 



o 
o 
o 



(J /ERROR 7 

/NO 'BRANCH' OCCURRED WHEN EXPEgTEQ, 

O 044i4 R 777776 A ERROR? LAW "2 O 

04415 R 040020 R DAC SySERR 

04416 R 777776 A i,AW «2 

O 04417 R 040021 R DAC SYSERR*! O 

04420 R 2046S1 R UAC (7 

04421 R 040022 R DAC ERCOPt /#!, ERROR CODE 7 

O 04422 R 201772 R L,AC YBRANCH O 

04423 R 040023 R DAC ERCOPEtl /#2» FAIUING 'BRANCH' |0T 

04424 R 10427S R JMS EXTERR ^ 
O 04425 R 684427 R JMP ERROR" O 

04426 R 600^^'^ R vJHP FPABQRT 

O / o 

/ERROR FORMAT FDR ALl, DATA ERRPRS 

O /FFl5T2^RATlO'FUNCTlONnFMB H^'LOW^EPA^FMA H«»UOW«£PA O 

/FMA H"' PHA U- EPAn (STORED DATA)" CCLACUUATED DATA) 
/ _ 

/ 

04427 R 000000 A ERROR 

O 04430 R 1044!^6 R JMS SETDHP /DUMP DIAG REGISTERS O 

04431 R 777776 A LAW "2 

04432 R 040020 R DAC 3YSERR 

O 04433 R 777770 A lAW »10 " O 

04434 R 040021 R DAC SYSERR+l /PRINT 10 DATA WORDS 

04435 R 204561 R LAC RATIO 

O 04436 R 344715 R TAD (401 O 

04437 R 040022 R DAC ERqODE /#4i RATIO 

04440 R 200527 R LAC OPCODE 

O 04441 R 040023 R DAC ERCODE*! /#2, FUNCTION O 

04442 R 200517 R LAC %XHAC2 

04443 R 040024 R DAC ERCQDE+S /#3, FMBi^H IBEFORE 

O 04444 R 200520 R LAC %XHAC3 O 

04445 R 040025 R DAC ERCODE+S /#4, FMB«L IBEFORE 

04446 R 200516 R LAC ?«XHACi 

O 04447 R 040026 R DAC ERC0DE*4 /#5, EPA JBEFORE O 



O 
O 
O 
O 

o 

o 



o 














o 
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FP15T2 SRC 


SUBTITLE SJNGLE 


o 


04450 


R 


200514 


R 


LAC 


%XFAC2 




04451 


R 


040027 


R 


DAC 


ercode;*5 




04452 


R 


200515 


R 


LAC 


%XFAC3 


o 


04453 


R 


040030 


R 


DAC 


ERCODE+6 




04454 


R 


200513 


R 


LAC 


%XFACi 




04455 


R 


040031 


R 


DAC 


ERCODE*/ 


o 


04456 


R 


104275 


R 


JMS 


EXTERH 




04457 


R 


777776 


A 


LAW 


.t2 




04460 


R 


040020 


R 


DAC 


SYSERR 


o 


04463, 


R 


7777/2 


A 


LAW 


a6 




04462 


R 


040021 


R 


DAC 


SYSERH+1 




04463 


R 


2005^3 


R 


LAC 


REGADH+4 


o 


04464 


R 


040022 


R 


DAC 


ERCODE 




04465 


R 


200554 


R 


LAC 


REGADR*5 




04466 


R 


040023 


R 


DAC 


eRcode*i 


o 


04467 


R 


200552 


R 


LAQ 


REGADR*3 




044/0 


R 


040024 


R 


DAC 


ERCODE+2 




04471 


R 


200&32 


R 


LAC 


^pANSRS 


o 


04472 


R 


040025 


R 


DAC 


ERC0UE*3 




04473 


R 


200533 


R 


LAC 


%ansr5 




04474 


R 


040026 


R 


DAC 


Ercope;+4 


o 


04475 


R 


200531 


R 


LAC 


%ANSRi 




04476 


R 


040027 


R 


DAC 


ERQOPE+S 




04477 


R 


104275 


R 


*JMS 


eXTERR 


o 


04500 


R 


777776 


A 


LAW 


"2. 




04501 


R 


040020 


R 


DAC 


SYSERH 




04502 


R 


777775 


A 


LAW 


w3 


o 


04503 


R 


040021 


R 


DAC 


SYSERR+1 




04504 


R 


203705 


R 


LAC 


%FAC2' 




04505 


R 


040022 


R 


DAC 


ERCODE 


o. 


04506 


R 


203706 


R 


LAC 


?'pFAC3" 




04507 


R 


040023 


R 


DAC 


ERgODE*! 




04510 


R 


203704 


R 


LAC 


%FAC1" 


o 


04511 


R 


040024 


R 


DAC 


ERC0DE*2 




04512 


R 


104275 


R 


JMS 


EXTERR 




04513 


R 


104235 


R 


JMS 


HOLDSW 


o 


04514 


R 


624427 


R 


gMP« 
.EJECT 


ERROR 


o 














o 














o 














o 












































o 















/#6,fMA«H ibefore 
/#7, FMa«L JBEFORE 

/#8» epa ?before 

/DUHP DATA 



/#%( FMA H KDRR) 

/#g, FMA I }(DRR) 

/#3, EPA KORR) 

/#4, FMA H ISTORED 

/#5, FMA L {STORED 

/#6, EPA JSTORED 
/DUMP OATAi 



/#!, FMA H ICALCUIATED 
/#2, FMA L ICALOULATED 
/«3, EPa ^CALCULATED 
/CHECK FOR THE HOLD SWITCH, 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 

o 
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FP15T2 SRC 


SUBTITl^E 


' SINGLE 


o 








/RANDOM 


NUMBER GENERATOR 




0451S 


R 


000000 A 


RANGEN 







o 


04516 


R 


3400W0 A 




TAD 







04517 


R 


344540 R 




TAD 


RANA 




04520 


R 


344541 R 




TAD 


RANB 


o 


04521 


R 


344542 R 




TAD 


RANC 




04522 


R 


044540 R 




OAC 


RANA 




04523 


R 


750010 A 




GIK 




o 


04524 


R 


343711 R 




TAD 


%HAC2 




04525 


R 


344540 R 




TAD 


RANA 




04526 


R 


344541 R 




TAD 


RANB 


o 


04527 


R 


344542 R 




TAD 


RANC 




04530 


R 


044541 R 




OAC 


RANB 




04531 


R 


750010 A 




Gl,K 




o 


04532 


R 


343712 R 




TAD 


%HAC3 




04533 


R 


344540 R 




TAD 


RANA 




04534 


R 


344541 R 




TAD 


RANB 


o 


04535 


R 


344542 R 




TAD 


RANC 




04536 


R 


044542 R 




DAC 


RANC 




04537 


R 


624515 R 




gMP^ 


* RANGEN 


o 










/ 






04540 


R 


721320 A 


RANA 


721320 




04541 


R 


627745 A 


RANB 


627745 


o 


04542 


R 


013212 A 


RANC 


013212 




04543 


R 


000000 A 


PGMLOP 









04544 


R 


000000 A 


APION 







o 


04545 


R 


000000 A 


PASCNT 









04546 


R 


000000 A 


SAVDST 









04547 


R 


000000 A 


AUTORG 







o 


04550 


R 


000000 A 


TEMPI 









04551 


R 


000000 A 


TEMPg 

















.EJECT 


o 














o 














o 














c 














o 














o 














o 














o 














o 















o 



o 

o 

Q 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
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O 0000W0 A lEND 

04572 R mmH R «l, 

04573 R 1'i.mm A «t, 

O 04574 R 0014iS2 R <il, 

04575 R 007400 A «|« 

04576 R 006000 A «U 
O 04577 R 000400 A »i, 

04600 R 001400 A *l, 

04601 R 002000 A »l, 
O 04602 R 001000 A <»l, 

04603 R 000040 A «l, 

04604 R 000000 A i»L 
O 04605 R 000531 R ^l 

04606 R 000513 R >^\, 

04607 R 000516 R »l, 
O 04610 R 000100 A f'X, 

04611 R 000532 R ftt, 

04612 R 000514 R »t, 
O^ 04613 R 000517 R ttL, 

04614 R 000533 R «(, 

04615 R 000515 R «(, 
O 04616 R 000520 R «t, 

04617 R 770367 A *^i 

04620 R 000010 

O 04621 R 003000 

04622 R 7701/7 

04623 R 003600 
O 04624 R 777747 

04625 R 000030 

04626 R 400000 
O 04627 R 0001^0 

04630 R 777000 

04631 R 777777 
O 04632 R 001032 R «i, 

04633 R 000747 R »C 

04634 R 037777 A »t, 
O 04635 R 777032 R <»|, 

04636 R 777116 R «l, 

04637 R 002400 A »i, 
O 04640 R 000037 A <H, 

04641 R 000027 A «U 

04642 R 001777 A «l, 
O 04643 R 000001 A «l, 

04644 R 000002 A «L, 

04645 R 000003 A tt^ 
O 04646 R 000004 A ^l, 

04647 R 000005 A *L 

04650 R 000006 A *(^ 

O 04651 R 000007 A »|„ 

04652 R 000011 A «l, 

04653 R 000012 A «C 
O 04654 R 000013 A *|, 

04655 R 000777 A »L, 

O 

o 



A 


U 


A 


«!, 


A 


U 


A 


^k 


A 


**l 


A 


^l 


A 


*^L, 


A 


«L, 


A 


*»t 


A 


♦^l. 



o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 
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FP15T2 SRC 


o 


04656 


R 


000060 


A «l 




04657 


R 


000020 


A «l. . 




04660 


R 


377777 


A ^l, 


o 


04661 


R 


20000.0 


A <»t, 




04662 


R 


000085 


A f»l. 




04663 


R 


000014 


A #1, 


o 


04664 


R 


000015 


A «l 




04665 


R 


000035 


A «l. 




04666 


R 


777767 


A «l. 


o 


04667 


R 


000170 


A «L 




04670 


R 


000050 


A «l 




0467i 


R 


716601 


A ""X, 


o 


04672 


R 


716602 


A «l 




04673 


R 


716603 


A *t. 




04674 


R 


716604 


A 1»l 


o 


04675 


R 


716606 


A #L 




04676 


R 


716610 


A ?»L. 




04677 


R 


716620 


A **C 
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